() apple () pear () orange () berry ##
##

print qq~


~;
    # break up data into 2 or three columns here 
    #
    #

    my $data = qq(SELECT id, name FROM engine WHERE status="1");
    my $sth = $dbh->prepare($data);
    $sth->prepare() or die $dbh->errstr;    

    my ($id, $name);
    $sth->bind_columns(\$id, \$name); #i

    while($sth->fetch)
    {
       print qq( - $name);
    }

print qq~
  
  
    Select search engines you wish to submit to 
  
     
  
     
  
  
    
  

~;