43  $sth=$dbh->prepare("select * from names where id=?");
44  $sth->execute($poreq);                                      
45  my @ar = $sth->fetchrow_array();                            
46          foreach $ar (@ar) {                                 
47                  print "$ar \n";                             
48          }                                                   
49  $sth->finish;