#!F:\perl\bin\perl.exe -wT
use strict;
use CGI;

my $q = CGI->new();

my $node = $q->param('node') || "";

my $html_dir_path = "..\\data\\html\\";
my $html_file_path = "$html_dir_path$node.txt";

open(HTML, "$html_file_path") or die "Error! Couldn't access HTML file\n";

print "Content-type: text/html\n\n";

while(<HTML>)
{
    print $_;
} 

exit;