$dbh = DBI->connect('DBI:Pg:dbname=test', 'db_user', '');
 $sth=$dbh->prepare ($sql);
 $sth->execute();
 $ind=0;
 while(my @options=$sth->fetchrow_array()){
      if ($selected eq $options[0]){
     print "<option id=value=$options[0] selected=$options[0]>$options[0]</option>";
   } else {
     print "<option value=$options[0] >$options[0]</option>";
   }
 };