Select Code to Download

while ($forked > 0) {
    print "[$forked] ";
    last if (waitpid(-1,0) == -1);
    sleep 1;
}

#!/usr/bin/perl -w

use strict;
...
    print "Finished child process $pid" . ($? ? " with exit $?" : "") 
+. "\n";
    delete $kids{$pid};
}