#!E:/perl/bin/perl
use CGI qw(:all);
use strict;
print header;

my ($startline, $endline);

open (TEMPLATE, "index.shtml") || die "cannot find index.shtml: $!";
while (<TEMPLATE>) {
  $startline = $. if /^\s*<!-- MAIN -->.*$/;
  $endline = $., last if /^\s*<!-- ENDMAIN -->.*$/;
}
$startline--; $endline--;

my @index=<TEMPLATE>;
for (0..$startline) {
  print $index[$_];
}

open (FORMTEMPLATE, 'form.txt') || die "cannot find form.txt: $!";
while (<FORMTEMPLATE>) {
  print;
}

for ($endline..$index[-1]) {
  print $index[$_];
}