#! perl -slw
use strict;
use threads ( stack_size => 4096 );


$SIG{ INT } = sub {
    warn threads->tid;
};

sub thread {
    1 while Win32::Sleep 10;
}

my @threads = map async( \&thread ), 1 .. 100;

1 while sleep 1;

__END__
C:\test>junk63
0 at C:\test\junk63.pl line 7.
0 at C:\test\junk63.pl line 7.
0 at C:\test\junk63.pl line 7.
0 at C:\test\junk63.pl line 7.
0 at C:\test\junk63.pl line 7.
0 at C:\test\junk63.pl line 7.