Standard header cruft including More cruft
##

# 
# doing work up above
# 
open (TPLT, "<$tpltfn") or die "Can't open template. $!";
undef $/; # dosn't matter because we're about to quit;
$html = ;
close (TPLT);
print header; # add cookies etc if necessary
$formidx = index($html,'');
$residx = index($html,'');
print substr($html,0,$formidx),
  create_form($parameters),
  substr($html,$formidx,($residx-$formidx)),
  create_results($other_parameters),
  substr($html,$residx);
exit;