#!/usr/bin/perl -w

use strict;
use threads;

sub do_one_thread { warn "in kid\n" }

sub do_thread {
   my $t = threads->new(\&do_one_thread);
   warn "parent $$: waiting for join\n";
   $t->join();
   warn "parent $$: thread exited\n";
}

for my $i (1..1000) {
   warn "i=$i:---\n";
   do_thread();
}
warn "sleeping for 60 seconds (check handle count in Task Manager)\n";
sleep(60);

##</code><code>##

Name         Pid Pri Thd  Hnd    Mem     User Time   Kernel Time   Elapsed Time
perl        6560   8   1 1017   3232   0:00:15.203   0:00:00.203    0:00:18.390