#!perl -slw
use strict;
use threads;
use Time::HiRes qw[ gettimeofday ];

sub thread{
    my( $s, $u );
    while( 1 ){
        Win32::Sleep 0;
        ( $s, $u ) = gettimeofday();
    }
}

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

<STDIN>;