sub ERRORDIE {
    Log::Log4perl->get_logger->error_die(@_);
}