perl -e 'while(1) {print "::> "; $_=<STDIN>; print $/,eval $_ || '0'; print "\n$@"}'