comment on

Some comments:

Use CGI.pm. It turns this:

 print "    <td align=center>\n";
  print "     <input type=submit value=\"Process Information\">\n";
  print "     <input type=reset value=\"Clear Form\">\n";
  print "    </td>\n";
[download]

into this:

 print td( {-align=>'center'},
           submit( -value=>'Process Information'),
           reset( -value=>'Clear Form') ), "\n";
[download]

Instead of print statements on every line, try using a HERE document. You no longer have to explicitly insert \n characters or escape the embedded quotes, among other readability advantages:
```
  print <<"END_HTML";
<HTML>
  <HEAD>
    <TITLE>Document Title</TITLE>
  </HEAD>
  <BODY>
   Hello, World!
  </BODY>
</HTML>
END_HTML
[download]
```
Once you get used to it, it's a much cleaner (and more efficient -- one call to print() rather than fifty -- way to express large amounts of literal text.
Try to separate your presentation code (HTML output) from your business logic (database code). It's more than a little difficult to see what's actually going on here, much less what you are trying to do.
- Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
- Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
- Read Where should I post X? if you're not absolutely sure you're posting in the right place.
- Please read these before you post! —
- Posts may use any of the Perl Monks Approved HTML tags:
  a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
- You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
  
  For: Use:
  
  & &
  
  < <
  
  > >
  
  [ [
  
  ] ]
- Link using PerlMonks shortcuts! What shortcuts can I use for linking?
- See Writeup Formatting Tips and other pages linked from there for more info.

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`