I cooked a little bit:

while (<STDIN>) {
    chomp;
    if ($_ eq "quit") {
        exit;
    }
    print eval "$_", "\n";
}
[download]