use strict;
use warnings;
use Log::Handler;

my $log = Log::Handler->new(
   filename => \*STDERR,
   newline => 1
);

$SIG{__DIE__} = sub { $log->trace(@_); exit(9); };

die "here we die";