local $SIG{__DIE__} = \&barf; # Goes somewhere near the top 
 
sub barf { 
       my $error  = shift; 
       my @caller = caller; 
       # Your stuff here 
}