#!/usr/bin/perl

#CGI application with form implemented entirely in perl

use CGI;
$query = new CGI;

print $query->header;
print $query->start_html(-title=>"CGI.pm-generated Forms",
                         -bgcolor=>"#FFFFFF");
print <<END;
  <h2>CGI.pm-generated Forms</h2>
  This script uses some of the form element methods
  implemented in CGI.pm: textfield(), submit(), and
  reset().  Any values passed to the script are
  dumped using the CGI.pm dump() method.
  <hr>
END
print $query->startform;
print "Field 1: ", $query->textfield(-name=>"field1"), "<br>\n";
print "Field 2: ", $query->textfield(-name=>"field2"), "<br>\n";
print "Field 3: ", $query->textfield(-name=>"field3"), "<br><br>\n";
print $query->submit, " ", $query->reset, "\n";
print $query->endform;
print "<hr>";
if ($query->param) {
  print $query->dump;
}
print $query->end_html;