#! /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";
}
