@echo off
perl -MShell -e "$/=\"\n\";$|=1;while(do{print $s?\"\: \":\"\$ \"},$l=<>){if($l=~/^;$/){@o=eval$s;if(@o){print\"@o\n\"}elsif($@){print\"$@\n\"}$s=''}else{$s.=$l}}"