alternatives that do the same thing:
print directly from file:
print "Content-type: text/html\n\n";
open (HTML, "<../path/to/your/file.htm");
print <HTML>;
close (HTML);
use a scalar instead of an array (slurp mode)
print "Content-type: text/html\n\n";
open (HTML, "<../path/to/your/file.htm");
my $html = do {local $/; <HTML>};
close (HTML);
print $html;