ENDOFTEXT
# Close the document cleanly.
print &HtmlBot;
}
sub PrintForm {
print &PrintHeader;
# Print out the body of the form from a single quoted here-document
# Note that if ENDOFTEXT weren't surrounded by single quotes,
# it would be necessary to be more careful with the other text
# For example, the @ sign (in the address) would need to be escaped as \@
print <<'ENDOFTEXT';