#!/usr/bin/perl -wT use CGI; my $cgi = new CGI; print $cgi->header; ##

##

open(HTML, "<$htmlfile") || die "ouch $!";
print ;
close(HTML);