$sql = "select * from sysadm.logon_p01 where clock = upper('$WWW_tempemp')";

print {$fh} "$sql....\n";

$sth = $db->prepare($sql) || die "Can't prepare: $DBI::errstr";

$rc = $sth->execute || die "Can't execute: $DBI::errstr";
#Retrieve data from select statement

#Get single row of data returned from oracle.

($clock,$name,$firstname,$middleinitial,$deptid,$phone,$entrydate,
 $removedate,$location,$pageprogress,$course_start_date,$course_comp_date,
 $final_quiz_complete,$final_quiz_score,$quiz_attempts,$survey_1,$survey_2,
 $survey_3,$survey_4,$survey5,$survey_6,$survey_7,$survey_8,$survey_9,$survey_10,
 $eval_1,$eval_2,$existing_user) = $sth->fetchrow_array;

 print {$fh} "$clock\n$name\n$firstname\n$middleinitial\n$deptid\n$phone\n$entrydate\n";
 print {$fh} "$removedate\n$location\n$pageprogress\n$course_start_date\n$course_comp_date\n";
 print {$fh} "$final_quiz_complete\n$final_quiz_score\n$quiz_attempts\n$survey_1\n$survey_2\n";
 print {$fh} "$survey_3\n$survey_4\n$survey5\n$survey_6\n$survey_7\n$survey_8\n$survey_9\n$survey_10\n";
 print {$fh} "$eval_1\n$eval_2\n$existing_user\n";

#Check for problems during fetch
warn $DBI::errstr if $DBI::err;

#Disconnect
$rc  = $db->disconnect || warn $db->errstr;

print {$fh} "disconnecting....\n";
undef $fh;
chmod(0666,$ichs_logs);

#print "Content-Type: text/plain\n\n";
#print "";

exit $status