#Modified by JB54 to include logname parameter (random number) for each transaction. File locks were becoming a latency issue.
$WWW_tempemp = $mycgi->param("tempemp");
$WWW_logname = $mycgi->param("logname");

$ichs_logs = "/data01/websites/ams/ichs/doc/logs/$WWW_logname.log";

$fh = new FileHandle $ichs_logs, "w";

#defined $fh
print {$fh} "Select PL running.   \n";
print {$fh} "$WWW_tempemp  \n";
print {$fh} "$WWW_logname  \n";

my $curDriver;

my $db = DBI->connect("dbi:Oracle:prch", "User", "PW");

#Added print {fh} and $DBI::errstr\n to die for debugging
($db) || die(print {$fh} "Database did not connect.\n $DBI::errstr\n");