Select Code to Download

foreach $item ( @array ) {
    if( $pid = fork ) {
        print "Forking off to $pid\n";
...
        die "Can't fork: $!";
    }
}

sub REAPER {
    my $waitedpid = wait;
    $SIG{CHLD} = \&REAPER;
}

    if( $pid = fork ) {
        print "Forking off to $pid\n";

    if( $pid = fork ) {
        $SIG{CHLD} = \&REAPER;
        print "Forking off to $pid\n";