Select Code to Download

use POSIX ":sys_wait_h";

...
  print "reaped $pid with status $?\n";
}

use Data::Dumper;

...

print Dumper(\%SIG);