#!/usr/bin/perl

while (1) {
    print "Perl> ";
    my $code = <STDIN>;
    chomp($code);
    last if $code =~ /quit/i;
    my $ret;
    eval("\$ret = $code");
    print "- $ret\n";
}