Select Code to Download

# parent.pl

...
   $child->GetExitCode(my $child_exit_code);
   print("Child exited with code $child_exit_code\n");
}

# child.pl
use Time::HiRes qw( sleep );
...
print "Doing something\n";
sleep(0.100);
print "done.\n";

>perl parent.pl
Lanched child.
...
Child still executing...
done.
Child exited with code 0