#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use Data::Dumper;
my $cgi = new CGI();

print $cgi->header();

my $field1 = $cgi->param('field1') || '';
my $field2 = $cgi->param('field2') || '';

print qq{
  <table>
  <form method="post">
    <tr><td><input type="text" name="field1" value="$field1"></td></tr>
    <tr><td><textarea name="field2" cols="100" rows="30" wrap="hard">$field2</textarea></td></tr>
    <tr><td><input type="submit" name="submit" value="submit"></td></tr>
  </form>
  </table>
};
print $cgi->pre( Dumper(\$cgi,\%ENV) ),"\n";
1;

##</code><code>##

one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one one 

two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two two 

three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three three 

four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four four

five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five five