#!/usr/bin/perl use CGI qw/:standard/; my $Test = param('Test') || undef; print header, start_html('HTML form'), qq~<FORM NAME="form1" METHOD="POST"> <INPUT TYPE="TEXT" NAME="Test" VALUE="" SIZE="18" MAXLENGTH="50"> <br> <INPUT TYPE="SUBMIT" NAME="submit" VALUE="Go!"> </FORM> <FORM NAME="form2" METHOD="POST"> is: <INPUT TYPE="TEXT" NAME="blah" VALUE="$Test" SIZE="16" MAXLENGTH="50"> </FORM>~, end_html;