Try this:

#!/usr/bin/perl

open(readfile, "yourfile.html");
@lines=<readfile>;
close(readfile);

print "Content-type: text/html\n\n";
print @lines;
[download]