-> more testexec*
::::::::::::::
testexec.pl
::::::::::::::
#!/usr/bin/perl
system("testexec2.pl");
print "Done $0\n";
::::::::::::::
testexec2.pl
::::::::::::::
#!/usr/bin/perl
exec($^X,"testexec3.pl") or print "exec failed - $!\n";
print "Done $0\n";
::::::::::::::
testexec3.pl
::::::::::::::
#!/usr/bin/perl
`sleep 3`;
print "Done $0\n";