#!/usr/bin/perl
use CGI ':standard';
use CGI::Carp "fatalsToBrowser";
print header, start_html('Logger');
$comments = param('ucomments');
$logfile=">>./mydata.txt";
open (OUTFILE, $logfile ) || die "Cannot open $infile: $!";
flock(OUTFILE, 2);
	 $remrefer=$ENV{'REMOTE_ADDRESS'};
	( $sec, $min, $hr, $Day, $mon, $year ) = localtime(time); 
	$year=$year+1900;
	$mon = $mon + 1;
	print OUTFILE "$mon/$Day/$year:$hr:$min:$remrefer:$comments\n"; 
	print  'Just Logged:', br,"$mon/$Day/$year:$remrefer:$comments"; 
	close (OUTFILE);
print end_html;