open(OUTFILE, ">$file.htm");
flock(OUTFILE, 2);
@lines=<OUTFILE>;
print OUTFILE "stuff";
close(OUTFILE);