#!perl -slw
use strict;
use threads;

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

my @threads = map{ threads->create( \&thread ) } 1 .. 100;

<STDIN>;