http://qs321.pair.com?node_id=212499


in reply to Re: Re: Re: Input/Output through the Keyboard
in thread Input/Output through the Keyboard

I cooked a little bit: 
while (<STDIN>) {
    chomp;
    if ($_ eq "quit") {
        exit;
    }
    print eval "$_", "\n";
}

[download]

In Section Seekers of Perl Wisdom