gistfile1.PL

my $answer;
while (! $answer) {
   $answer = prompt();
}

if ($answer == 1) {
   print "you chose foo\n";
} elsif ($answer == 2) {
   print "you chose bar\n";
} elsif ($answer == 3) {
   print "you chose baz\n";
}



sub prompt {
   my $menu = <<EOT;

What do you want me to do?

  (1) Foo
  (2) Bar
  (3) Baz

EOT
   print "$menu> ";
   my $answer = <STDIN>;
   chomp $answer;
   return undef unless ($answer =~ /^(1|2|3)$/);
   return $answer;
}