open(INFILE, "file.htm");
flock(INFILE, 1);
@lines=<INFILE>;
close(INFILE);

open(OUTFILE, "+>$file.htm");
flock(OUTFILE, 2);
print OUTFILE "stuff";
close(OUTFILE);