Select Code to Download

# /tmp/child-child.pl
print "I'm exec'd: $$\n";

#!/usr/bin/perl

...
    print "I'm child ($0): $$\n";
    exec $^X, '/tmp/child-child.pl';
}

$ perl /tmp/main.pl
I'm parent (/tmp/main.pl): 12499
I'm child (/tmp/main.pl): 12500
I'm exec'd (/tmp/child-child.pl): 12500