perl -we "system('pause')"
pause
cmd /c pause