Select Code to Download

if (my $pid = fork()) {  # a true or non-zero value for the parent
    # stuff
...
else {                   # a false value or 0 for the child
    # stuff
}

foreach my $wks (@wkslist) {
    my $pid = fork;
...
       print "non zero exit from $pid: $?";
    }
}