#!/usr/bin/perl -w
use strict;
use exitwound::BuildLink qw(&buildLinks);

my ($NodeTitle, $NodeDate, $NodeSection, @words) = buildLinks(1);

########################
# BEGIN STANDARD HEADERS
########################
require("HEADER01.pl");
require("standard.css.pl");
require("HEADER02.pl");
require("shock-header-links.pl");
require("HEADER03.pl");
########################
# END STANDARD HEADERS
########################

print "$NodeTitle<br>";
print "$NodeDate<br>";
print "$NodeSection<br>";
print @words;
# print "test page";

########################
# BEGIN STANDARD FOOTERS
########################
require("FOOTER01.pl");
require("shock-footer-links.pl");
require("FOOTER02.pl");
########################
# END STANDARD FOOTERS
########################