#!perl -w
$|++;$,=' ';
print $/,'perl> ';
eval($_) || print $@,$/
and print $/,'perl> ' while(<>);