# TOP OF SCRIPT
use File::Basename;
my ($bname, $bpath, $bsuffix) = fileparse($0,'.pl','.cgi');
my $LOGFILE = "errors/$bname.txt";
if (-s $LOGFILE > 10000) { unlink $LOGFILE; }
open (STDERR, ">>$LOGFILE") or die "Couldn't open script log: $!\n";