use strict;
use warnings;

open(FH,"<./test.html") || die "couldn't open file $!\n";
my @html=<FH>;
close(FH);

print @html;
print "	my script stuff<P>\n";
print '</body>';


##</code><code>##

<!--#exec cgi="/cgi-bin/yourscript.pl" -->