#!/usr/bin/perl

$SIG{__DIE__} = sub {
      open my $h, ">>", "fatal.log";
       print $h scalar localtime, ": @_";
       close $h;
  die @_;
};

die "ouch $!\n";