seek (TEMPLATE, 0, 0); # reposition to start of file
my @index=<TEMPLATE>;

##</code><code>##

print header;

##</code><code>##

print "Content-Type: text/html\n\n";