Here's a working version of the code currently posted here (although I still wouldn't recommend this approach; the last command shows an injection):

c:\@Work\Perl\monks>perl -wMstrict -le
"use Try::Tiny;
 ;;
 while (my @parsed = &parseInput) {
   &dispatch(@parsed);
   }
 ;;
 sub parseInput {
   my $inp = <>;
   chomp $inp;
   my @parsed = split ' ', $inp;
   return () if $parsed[0] eq 'q';
   return @parsed;
   }
 ;;
 sub dispatch {
   my $cmd   = shift;
   my $args  = join q{,}, @_;
   my $e_str = qq{&$cmd($args)};
   try   { eval $e_str;  $@ and die $@; }
   catch { warn qq{bad command '$e_str': \n$_}; }
   }
 ;;
 sub bar { print qq{Baring: (@_)}; }
"
bar
Baring: ()
bar 9 8 7
Baring: (9 8 7)
bar x yy zzz
bad command '&bar(x,yy,zzz)':
Bareword "x" not allowed while "strict subs" in use at (eval 4) line 1
+, <> line 3.
Bareword "yy" not allowed while "strict subs" in use at (eval 4) line 
+1, <> line 3.
Bareword "zzz" not allowed while "strict subs" in use at (eval 4) line
+ 1, <> line 3.
bar 'x' 'yy' 'zzz'
Baring: (x yy zzz)
foo
bad command '&foo()':
Undefined subroutine &main::foo called at (eval 6) line 1, <> line 5.
foo 1
bad command '&foo(1)':
Undefined subroutine &main::foo called at (eval 7) line 1, <> line 6.
foo x
bad command '&foo(x)':
Bareword "x" not allowed while "strict subs" in use at (eval 8) line 1
+, <> line 7.
foo 'x'
bad command '&foo('x')':
Undefined subroutine &main::foo called at (eval 9) line 1, <> line 8.
{sub{print"rm\c@-rf\c@*"}}
rm -rf *
q
[download]