sub DisplayHTML() {
    $HTMLFileName = @_[0];
    open(HTMLFNH,"<$HTMLFileName") || die "Can't open file";
    print "Content-type:  text/html\n\n";
    while ($HTMLLine=<HTMLFNH>) {
        chomp $HTMLLine;
        print "$HTMLLine\n";
    }
    close(HTMLFNH);
}
return 1;