Select Code to Download

use strict ;
use warnings;
...
$job -> spawn ( 'c:/perl/bin/perl.exe', 'perl sp.pl',\%opt)  ;
my $ok=$job->run($tmout, 0) ;
$ok ? print "ended before $tmout sec" : print "had to kill it" ;

#!perl
use warnings;
...
sleep 2;
$i++ ;
}

 
Do the hammerlock
Do the hammerlock
Do the hammerlock
Do the hammerlock
Do the hammerlock

Do the hammerlock you turkeynecks !
Do the hammerlock you turkeynecks !
... (uh, well, you get it ... )