Perl脚本菜单的简单实现

#!/usr/bin/perl -w
use strict;
foreach(1 .. 10){

print "Iteratin number $_.\n\n";

print "Please input the choice: last, redo, next, or none of the above?";

chomp(my $choice=<STDIN>);
print "\n";
last if $choice=~ /last/i;
next if $choice=~ /next/i;
redo if $choice=~ /redo/i;
print "That wasn't any of the choices.. onward!\n\n";

}
print "That's all, folks!\n";