Help for this page
#!/usr/bin/perl -wT ... my $cgi = new CGI; print $cgi->header;
open(HTML, "<$htmlfile") || die "ouch $!"; print <HTML>; close(HTML);