use threads;

foreach(1..10) 
{
 	print "$$ starting loop $_";
	
	my $kid = new threads(\&wasPsuedoFork);

	print "$$ exiting loop $_";
}

sub wasPsuedoFork 
{
	print "\tchild ", threads->tid() " created ok";
	sleep(int(rand(10)));
	print "\tchild", threads->tid() , " done, outta here";
}