Select Code to Download

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

     kill -USR1 7405

     7405: 'Mum' Caught $SIG{ USR1 }

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

    userdefined Signal 1