:LOOP
perl threadtest.pl
goto LOOP