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

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

##</code><code>##

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