valid.htmlp in Perl
<!-- $filename -->
<table width=450>
<tr>
<td width=20 height=20>
<td colspan=2>
<h2>Email Me!</h2>
<p>Here's the message you entered:
<tr> <td width=20 height=20>
<tr valign=top> <td width=20 height=20>
<td><strong>Your Name:</strong> <td><code>$name</code>
<tr valign=top> <td width=20 height=20>
<td><strong>Your Email Address:</strong> <td><code>$email</code>
<tr valign=top> <td width=20 height=20>
<td><strong>Subject:</strong> <td><code>$subject</code>
<tr valign=top> <td width=20 height=20>
<td><strong>The Message:</strong> <td><code>$disp_message</code>
<tr> <td width=20 height=20>
<tr> <td width=20 height=20>
<td colspan=2>
<form action="$callback" method=POST>
<input type=hidden name=name value="$name">
<input type=hidden name=email value="$email">
<input type=hidden name=subject value="$subject">
<input type=hidden name=message value="$message">
<input type=submit value=" Send It ">
<input type=submit name=oops value=" Oops! ">
<input type=hidden name=referer value="$referer">
<input type=hidden name=state value=sent>
</form>
<tr> <td width=20 height=20>
</table>