#!/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;