Click Here!
Click Here!

Perl Primer Five Assignment
A Possible Answer

     First off, add the input item to the HTML page. Make it look something like this:

<INPUT TYPE="input" NAME="favfood" SIZE="30">

     Now, when the PERL script grabs the form data and melds it into scalar variables, you'll be able to call on the value of whatever the user wrote in the text box through:

$FORM{'favfood'}

     Add a line that contains that value into the thank_you subroutine and the value will be displayed.

     For example (my change is in bold):


sub thank_you {

print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>Thank You!</TITLE>\n";
print "</HEAD>\n";
print "<BODY BGCOLOR=#FFFFCC TEXT=#000000>\n";
print "<H1>Thank You!</H1>\n";
print "\n";
print "<P>\n";
print "<H3>Your feedback is appreciated.<BR>\n";
print "<P>\n";
print "I will be right over with some $FORM{'favfood'}\n";
print "<P>\n";
print "</BODY>\n";
print "</HTML>\n";
exit(0);
}





Close this window to return to the Primer