open (LOG,"log.dat");
@logfile = <LOG>;
close(LOG);

@old_logfile = @logfile[0..100];

open (LOG,">log.dat");
flock(LOG,2);
print LOG "$date - $requesturi - ($httpuseragent) $remorehost: $remoteport ($remoteaddr) - $httpreferer\n";
print LOG "@old_logfile";
flock(LOG,8);
close(LOG);