Select Code to Download

#!/usr/bin/env perl

...
print 'From child: ', $from_child;
waitpid $pid, 0;
print 'Child exit status: ', $? >> 8, "\n";

From child: Sat 29 Mar 2014 03:49:33 EST
Child exit status: 0