#!perl -w use strict; while (1) { print ">"; my $statement = <>; # Read print "---\n"; my @res= eval $statement; # Eval if( $@ ) { print "ERROR: $@\n"; } else { print Dumper \@res; # Print print "\n"; }; }; #### >my $name='World'; "Hello $name" --- $VAR1 = [ 'Hello World' ]; > #### > my $name = 'World'; --- $VAR1 = [ 'World' ]; #### > "Hello $name"; --- ERROR: Global symbol "$name" requires explicit package name at (eval 4) line 1, <> line 4.