sub DisplayHTML() {
    $HTMLFileName = @_[0];
    open(HTMLFNH,"<$HTMLFileName") || die "Cant open $HTMLFileName";
    print "Content-type:  text/html\n\n";
    while ($HTMLLine=<HTMLFNH>) {
        $HTMLLine =~ s/(\$[\w\[\]{}']+)/$1/gee;
        #Allows printing of variable content.
        print "$HTMLLine";
    }
    close(HTMLFNH);
}
return 1;