if ($ENV{'REQUEST_METHOD'} eq "POST") {

	open(IN,"lightbox.log");
	@lines = <IN>;
	close(IN);

	($sec,$min,$hour,$mday,$mon) = localtime(time);
	$date = sprintf("%02d/%02d-%02d:%02d:%02d",$mon+1,$mday,$hour,$min,$sec);

	open(OUT,">lightbox.log");
	unshift ( @lines, $date . "\t" . $Form{"Data"} . "\n" );
	print OUT @lines;
	close(OUT);

}

for( 0 .. $#lines ) {
	@log = split( /\t/, $lines[$_] );
	print "<SPAN title=\"$log[0]\">$log[1]</SPAN><BR>";
}