while (1)
    {
        print "$0> ";
        chomp(my $input = scalar <STDIN>);
        last if $input =~ m/^(q|quit)$/;
        my $res = eval $input;
        chomp(my $out = $@ ? $@ : $res);
        print "$out\n";
    }
[download]