my $sth2 = $dbh->prepare(qq{SELECT video_title FROM video});
$sth2->execute();
while (my ($title) =
  $sth2->fetchrow_array())  
                             
{
     print "<p>
<button onclick='showPopWin('http://10.33.195.248//ajax/index.html', 400, 200, null);>$title</button></p>";
}
print "</TABLE><div>";
$sth2->finish();