Well. I haven't quite nailed it down. But something's bugging me about this section:

foreach my $num (@Array){
    print "---$num---\n";
    print Dumper(%children);
    while (keys %children >= $max) {
        print "Haaaanging\n";
        sleep 1;
    }
[download]

Just thought I'd mention it.

--Chris