use strict ;
use warnings;
use Win32::Job ; 
my $job = Win32::Job->new;
my $tmout = 20 ;
my %opt = ( stdout => 'out.txt' , stderr => 'err.txt' ) ;
$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" ;

##</code><code>##

#!perl
use warnings;
use strict ;
select STDERR ;
$|=0 ;
select STDOUT ;
$|=0 ;
my $i = 0 ;
while ($i < 5 ) {
print STDOUT "Do the hammerlock\n" ;
print STDERR "Do the hammerlock you turkeynecks !\n" ;
sleep 2;
$i++ ;
}

##</code><code>##

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

##</code><code>##

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