- or download this
for my $k ( keys %SIG ) {
$SIG{$k} =
sub { print "\n$$: 'Mum' Caught \$SIG{ $k }\n" }
}
- or download this
kill -USR1 7405
- or download this
7405: 'Mum' Caught $SIG{ USR1 }
- or download this
for my $k ( keys %SIG ) {
local $SIG{$k} =
sub { print "\n$$: Mum Caught \$SIG{ $k }\n" }
}
- or download this
userdefined Signal 1