Select Code to Download

use IPC::Open3;

...
   waitpid($pid, 0);
   print "after waitpid\n";
}

3297
loop 1
...
Status is: sleep 11
Status is: sleep 11
Status is: sleep 11

   print "Status is: $status\n";

sub default { print "got SIG ".shift()."\n"}
$SIG{$_} = \&default for keys %SIG;
$SIG{USR1} = \&status;

#!/usr/bin/perl
# have to print to a terminal directly,
...
$SIG{$_} = \&default for keys %SIG;

sleep $_ for 1..shift;

3437
loop 1
...
after waitpid
loop 2
...