die "Custom error messages are good!" if $condition;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

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

die "Argh!";

##</code><code>##

Sat Jan 25 00:40:36 2003 Argh! at ./custom_die.pl line 8.