use warnings;
use strict;

use Config;
$Config{useithreads} || die "Recompile Perl with threads to run this p
+rogram.";

use threads;
#use threads::shared;
#use Thread::Running;
#use Thread::Signal;
#use Thread::Queue;

sub ithread
{
my $i;
my $arg=shift||'';
print "just received - $arg\n";
foreach(1...10)
  {
  print $i++, " $arg \n";
  sleep(1);
  }
}


foreach(1...3)
{
my $thread = threads->create( "ithread", "$_" );
}

foreach(1...15)
{
sleep(1);
print "running..\n";
}

exit;
[download]