Help for this page

Select Code to Download

Select or download this

@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}}"