# which threading model do we want?
use threads;
#use forks;


$num_threads = shift(@ARGV) || 10;

foreach (0..$num_threads-1) {
    # create a new thread
    push(@threads,threads->new(\&thread_sub));
}

foreach $thread (@threads) {
    # wait for threads to finish
    $thread->join();
}

printf "Orig thread done\n";

sub thread_sub {
    printf "Thread %d started\n",threads->tid();
}