test.pl

package Foo {
    use IO::Prompt;

    sub new { bless {}, shift }

    sub ask {
	my ($self, $msg) = @_;
        my $echo = prompt("next: ");
        print "You said '$echo'\n";
    }
}

my $foo = Foo->new;
eval { $foo->ask; };
if ($@) {
    print "failed\n";
}