sub slog {
    my ( $prg, $priority, $msg ) = @_;
    return unless ($priority =~ /info|err|debug/);
    openlog( $prg, 'pid', 'user' );
    syslog( $priority, $msg );
    closelog();
    return 1;
}