for my $k ( keys %SIG ) {
      $SIG{$k} = 
       sub { print "\n$$: 'Mum' Caught \$SIG{ $k }\n" }
   }