#!/usr/bin/perl -w

use strict;
use threads;

my $count = 1;
for (1..10) {
   my $thread = threads->create(\&threadsub, $count);
   $count++;
   sleep(2);
}

for (threads->list()) {
   eval{$_->join()};
   print $_->tid()." has returned!\n";
}

sub threadsub {
   my $cnt = shift;
   print "I am thread $cnt!\n";
   sleep(5);
   print "returning from thread $cnt...\n";
}