Select Code to Download

foreach (1..10)
{
...
# 1 while wait != -1;     # *cough*
print "$$ all done!";

use threads;

...
    sleep(int(rand(10)));
    print "\tchild", threads->tid() , " done, outta here";
}