#!/usr/bin/perl -w

use strict;
use threads;

sub do_one_thread { warn "in kid\n"; return 1; }

sub do_thread {
   my $t = threads->new(\&do_one_thread);
   $t->detach;
}

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