#! /usr/bin/perl -w
# The -while and -until flags control whether &prompt returns true on a given
# input...
use IO::Prompt;
while (prompt "first while digit: ", -while => qr/\d/) {
print "You said '$_'\n";
}
while (prompt "second until digit: ", -until => qr/\d/) {
print "You said '$_'\n";
}
while (
prompt "third while digit (not zero): ",
-while => qr/\d/,
-until => qr/0/
)
{
print "You said '$_'\n";
}