$SIG{__DIE__}  = \&log_die;

sub log_die {
 print @_;
}

##</code><code>##

sub log_die {
    return unless CRITICAL >= $PRIORITY;
    _log(_msg('critical',@_));
    die @_;
}