local $SIG{__DIE__} = sub {
    my $msg = localtime() . ' ' . shift;
    die $msg;
};