Help for this page

Select Code to Download

Select or download this

sub slog {
    my ( $prg, $priority, $msg ) = @_;
...
    return 1;
}

Select or download this

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