in reply to determining the line# of code when an alarm() trips?

see caller: 
$SIG{ARLM} = sub { 
  my ($package,$file,$line)=caller;
  print "ALRM at $file:$line\n";
};

[download]
Oha

In Section Seekers of Perl Wisdom