c:\@Work\Perl\monks>perl -wMstrict -le
"BEGIN {
   ;;
   my %dispat = (
     'foo' => sub { print 'Fooing: ', qq{(@_)}; },
     'bar' => \&bar,
     );
   ;;
   sub dispatch {
     my $cmd = shift;
     ;;
     $cmd = lc $cmd;
     if (not exists $dispat{$cmd}) {
       print qq{do not know how to '$cmd'};
       return;
       }
     $dispat{$cmd}->(@_);
     }
   }
 ;;
 while (my @parsed = parseInput()) {
   dispatch(@parsed);
   }
 ;;
 sub parseInput {
   my $inp = <>;
   chomp $inp;
   my @parsed = split ' ', $inp;
   return if lc($parsed[0]) eq 'q';
   return @parsed;
   }
 ;;
 sub bar { print 'Baring: ', qq{(@_)}; }
"
foo
Fooing: ()
bar
Baring: ()
foo 1 2 3
Fooing: (1 2 3)
bar x xyzzy
Baring: (x xyzzy)
boff
do not know how to 'boff'
Q