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


##</code><code>##

my $prg = $0;
my $message =qq(Something weird happend!);
 slog( $prg, 'err', $message )