http://qs1969.pair.com?node_id=794938

bv has asked for the wisdom of the Perl Monks concerning the following question:

I was composing this perl poem and I ran into a strange issue with the kill command. I've only used it once before (Perl 5.10.0 on Ubuntu) and it worked fine, but this time, every time I try to kill ALRM, $$, the program quits. I tried kill 14, $$, same issue. I had set a signal handler for SIGALRM:

$SIG{ALRM} = sub { print "Alarming!\n"; };

...but it doesn't print. Any guesses as to what's going on here?

> perl -MConfig -e "print $Config{sig_name}" ZERO HUP INT QUIT ILL NUM05 NUM06 NUM07 FPE KILL NUM10 SEGV NUM12 PIPE + ALRM TERM NUM16 NUM17 NUM18 NUM19 CHLD BREAK ABRT STOP NUM24 CONT CLD
print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))