late in the thread i know but usefull anyhow. I was reading the 7 sins of perl again recently and saw that the latter versions of perl support passing more than just a string to die() and warn(). (sin #7) This is also verry usefull, and altho not capturing the signal it still allows for cleanup and verbosity

#!/usr/bin/perl
use strict;
use warnings;

open my $fh, "/etc/shadow" or warn  my_warn() ;

open  $fh, "/etc/shadow" or die die_hard() ;

sub my_warn { print "SHE can't take it much longer captian!\n"; }

sub die_hard { print "OH NO CAPTAIN SHES BREAKING UP\n"; }
[download]

An intellectual is someone whose mind watches itself.
- Albert Camus