$ perl -e'local *CORE::GLOBAL::die = sub (@) {CORE::die(scalar(localtime()), " ", @_);}; die "Foo!"'
Foo! at -e line 1.
$