#!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";
    };
};

##</code><code>##

>my $name='World'; "Hello $name"
---
$VAR1 = [
          'Hello World'
        ];
>

##</code><code>##

> my $name = 'World';
---
$VAR1 = [
          'World'
        ];

##</code><code>##

> "Hello $name";
---
ERROR: Global symbol "$name" requires explicit package name at (eval 4) line 1, <> line 4.