Select Code to Download

#!/usr/bin/perl

...
}

print "All done!\n";

#!/usr/bin/perl

...
use warnings;

print "In test2.pl the pid is $$\n";

/liwidata/dev/tmp/jmg/dev/library> ./test1.pl
In test1 the parent pid is 21348; the child pid is 21349
All done!
/liwidata/dev/tmp/jmg/dev/library> In test2.pl the pid is 21349