#!/usr/bin/perl

use strict;
use warnings;

local $SIG{__DIE__} = sub { die scalar localtime(), " " , $_[0] };

die "Argh!";