Resize this window so you can view the main text.
Close this window to return to the main text.
print "<HTML><HEAD><TITLE>Form for Making a Greeting Card</TITLE></HEAD>\n";
print "<BODY>\n";
print "<H1>Greeting Card Form</H1>\n";
print "<HR>\n";
print "<FORM ACTION=\"/perl/card.pl\">\n";
print "<H3>Card Type</H3>\n";
print "<Font \n";
print "Select which type of card you would like:<P>\n";
print "<INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"1\" CHECKED>Birthday card:\n";
print "A basic birthday card.<P>\n";
print "<INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"2\">Anniversary card:\n";
print "A basic anniversary card.<P>\n";
print "<INPUT TYPE=\"radio\" NAME=\"type\" VALUE=\"3\">Thank you card:\n";
print "A basic thank you card.<P>\n";
print "<H3>Particulars:</H3>\n";
print "Recipient"s name <INPUT TYPE=\"text\" NAME=\"who\" MAXLENGTH=\"32\" value=\"Mary\"><P>\n";
print "Your name <INPUT TYPE=\"text\" NAME=\"name\" MAXLENGTH=\"32\" value=\"John\"><P>\n";
print "<INPUT type=\"submit\" VALUE=\"Create Card\">\n";
print "</font>\n";
print "</FORM>\n";
print "<hr>\n";
print "Copyright © 1995 Novell, Inc. All Rights Reserved.\n";
print "</body></html>\n";