#!/p4/common/perl/bin/perl -w use strict; my $Log="$ENV{CBD_HOME}/logs/sbi.log"; my $Output; open (LOG, ">$Log") or die "\nError: Log is bogus!\n"; while () { print LOG; } close (LOG); $Output = `/bin/cat $Log 2>&1`; print "action: REJECT\n"; print "message: \"$Output\"\n"; exit (1);