73 my $out_file = "/var/www/html/shhabcam/LOGS/user_$assignment.html";
374
375 if (-f $out_file) {
376 chmod 777, $out_file;
377 unlink $out_file or die "can't delete $out_file....$!";
378 }
379
380 open (my $OUT, '>',"$out_file") or die "can't open $out_file....$!";
381 print $OUT $message;^M
382 close ($OUT);
383
384 # print $LOG "9\n";
385
386 close ($LOG) if ($debug);
387
388
389 print "Content-type: text/html\n\n";
390 print "$out_file created....
\n";