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