Select Code to Download

#! /usr/bin/perl -T
use strict;
...
open(FILE, "/path/to/html/$page.htm");
print while(<FILE);
close(FILE);