Select Code to Download

sub fork_test {
    my ($file,$logfile)= @_;
...
    sleep 3;
    print "I'm done working.\n";
}

while ( $count > $max ) {
    wait;
    $count--;
}

die "Can't fork: $!\n" unless defined(my $pid = fork());