#! perl -slw
use threads;
use threads::shared;

print $threads::VERSION;
print $threads::shared::VERSION;
print $];

@th = map{
    threads->new(
        sub{
            while( 1 ){
                local %h = ( 1 .. 10000 );
                sleep 1
            }
        }
    )
} 1 .. 100;

$_->join for @th

__END__
c:\test>junk9
Name "main::h" used only once: possible typo at c:\test\junk9.pl line 13.
1.05
0.92
5.008006
Terminating on signal SIGINT(2)

c:\test>\AS817\perl\bin\perl5.8.8.exe junk9.pl
Name "main::h" used only once: possible typo at junk9.pl line 13.
1.1201
0.99
5.008008
Terminating on signal SIGINT(2)