use Carp;
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };