Select Code to Download

sub subroutine {
    foreach (1..4) {
...
        print "$_ child finished; status is: $?\n";
    }
}

#!/s/t/tye/bin/perl -w
use strict;
...
    }
}
# Usage:  fork4 6 4 8 2