#!/usr/bin/env perl
use warnings;
use strict;
use IO::Prompt 'prompt';

print STDOUT "I am STDOUT\n";
print STDERR "I am STDERR\n";
for (qw/Bar Quz Baz/) {
	my $resp = prompt("Foo $_? ", -yn);
	warn "You said no\n" if lc($resp) eq 'n';
	print "<$resp>\n";
}
print "Goodbye.\n";