{
  my $sth = $dbh->prepare("SELECT id, value FROM database");
  my $result = $sth->fethall_arrayref();

  print "<select name=\"selectboxname\"><option></option>";
  for (@$result) {
    print "<option value=\"$_->[0]\">$_->[1]</option>";
  }
  print "</select>";
}