:start
call perl -w translator.pl
pause
goto start