just received - 1
0 1
just received - 2
0 2
just received - 3
0 3
1 1
1 2
running..
1 3
2 1
2 2
running..
2 3
3 1
3 2
running..
3 3
4 1
4 2
running..
4 3
5 1
5 2
5 3
running..
6 1
6 2
running..
6 3
7 1
7 2
running..
7 3
8 1
8 2
running..
8 3
9 1
9 2
running..
9 3
running..
running..
running..
running..
running..
running..

##</code><code>##

use warnings;
use strict;

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

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;