open(DATA,"hello.template");
@template=<DATA>;
close(DATA);
print "Content-type: text/html\n\n"
for($a=0;$a<=$#template;$a++){
print $template[$a];
}