Select Code to Download

open(INFILE, "file.htm");
flock(INFILE, 1);
...
flock(OUTFILE, 2);
print OUTFILE "stuff";
close(OUTFILE);

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