elsif ($pid == 0) {
# ....
my $exitstatus = ...
my $returnvalue = $exitstatus >> 8;
my $signalled = ($exitstatus & 127);
print "status=$exitstatus, signal=$signalled\n";
return($returnvalue);
}