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


##</code><code>##

     kill -USR1 7405


##</code><code>##

     7405: 'Mum' Caught $SIG{ USR1 }


##</code><code>##

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


##</code><code>##

    userdefined Signal 1