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