print qq~
<form action="" method="post">
<table width="400" border="1" cellspacing="0" cellpadding="1">
  <tr>
    <td colspan="2"><div align="center">Suggest A Site </div></td>
  </tr>
  <tr>
    <td>Name</td>
    <td><input name="name" type="text" id="name" /></td>
  </tr>
  <tr>
    <td>Email</td>
    <td><input name="email" type="text" id="email" /></td>
  </tr>
  <tr>
    <td>URL</td>
    <td><input name="url" type="text" id="url" /></td>
  </tr>
  <tr>
    <td>Title</td>
    <td><input name="title" type="text" id="title" /></td>
  </tr>
  <tr>
    <td>Keywords</td>
    <td><textarea name="keywords" id="keywords"></textarea></td>
  </tr>
  <tr>
    <td>Description</td>
    <td><textarea name="description" id="description"></textarea></td>
  </tr>
  <tr>
    <td>Category</td>
    <td>
         <select name="category" size="3">
~;

  my $data = qq(SELECT id, catname FROM categories WHERE 1 ORDER BY catname ASC);
  my $sth = $dbh->prepare($data);
  $sth->execute() or die $dbh->errstr;

  my ($id, $catname);
  $sth->bind_columns(\$id, \$catname);
  
  while($sth->fetch)
  {
     print qq(<option value="$catname">$catname</option>);
  }

  print qq~ 
        </select>
    </td>
  </tr>
  <tr>
    <td colspan="2"><div align="center">
      <input type="submit" name="Submit" value="Submit" />
    </div></td>
  </tr>
</table>
</form>
~;