$SIG{__DIE__} = \&_die_handler("bar foo");
...
sub _die_handler {
   print {$self->{fh}} Dumper(\@_);
   exit(9);
}