Select Code to Download

use strict;
my $num = shift;
...
        print "$num finished calling exec.\n";
    }
}

$ perl test.pl 5
5 is calling system...
...
1 finished calling system.
3 finished calling system.
5 finished calling system.

D:\PerlCode>perl test.pl 5
5 is calling system...
...
3 is finished calling system.
1 is calling system...
1 is finished calling system.