Select Code to Download

t1 = Thread.new {
    output = [];
...
t1.join
got = t1["output"]
got.each{|line| puts line}

use threads;
@t = map{ 
...
        } 
    ) or die "threads->create failed $^E" 
} 1 .. 1000;

C:\test>maxthreads.pl
1
...
117
threads->create failed Not enough storage is available to process this
+ command at C:\test\maxthreads.pl li
A thread exited while 120 threads were running.

PERL_SET_CONTEXT(aTHX)
PERL_SET_CONTEXT((aTHX = PL_sharedsv_space))
...
(PL_current_context = t)
PERL_SET_THX(t)                PERL_SET_CONTEXT(t)
PERL_SET_CONTEXT(proto_perl);