#!/usr/bin/perl
# have to print to a terminal directly,
# since default file handles are re-directed
open O ,'>', '/dev/pts/1';
sub default {
   my $sig = shift;
   print O "child Status: got SIG$sig\n";
   $SIG{$sig} = \&default; 
}

$SIG{$_} = \&default for keys %SIG;

sleep $_ for 1..shift;