while ( @row = $sth->fetchrow_array ) {
    print "<A HREF=$row[1]>$row[0]</A><P>\n";
  }