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