if ($line =~ /<!--InputWords-->/i) {
		
print <<EOF;
<FORM METHOD=POST ACTION=$CGIURL>
<INPUT TYPE=HIDDEN NAME=TextFile VALUE="$TextFile">
<P><CENTER>
<TABLE>
EOF
		
    foreach $variable (@sortedvariables) {

         next if ($variable eq $lastvariable);

print <<EOF;
<TR><TD ALIGN="RIGHT"><P>$variable: </TD>
<TD><INPUT TYPE="TEXT" NAME="$variable" SIZE="25">
</TD></TR>
EOF

        $lastvariable = $variable;
      }

print <<EOF;
    </TABLE></P>;
    <P><INPUT TYPE="SUBMIT" VALUE="See the Results!">
    </CENTER></P></FORM>
EOF

    }
    else {
        print $line;
    }


##</code><code>##


use strict;
use CGI;

$q=CGI->new();

if ($q->param('initial_page') {

   [ do the stuff to display the results page ]

  }