#!/usr/bin/perl
use CGI;

$q = new CGI;

print $q->header,
    $q->start_html("Post Form");

print $q->start_form(-action=>"formmod2.cgi");
print "<pre>\n";

print "     Your Name: ",$q->textfield(-name=>"name"), "\n";
print " Email address: ",$q->textfield(-name=>"email"), "\n";
print "           Age: ", $q->textfield(-name=>"age"), "\n";
print "Favorite Color: ",$q->textfield(-name=>"favorite_color"), "\n";
print "</pre>\n";

print $q->submit(-value=>"Send"),
    $q->reset(-value=>"Clear Form");

$q->end_form;
$q->end_html;