#!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++ ;
}