$sth = $dbh->prepare("SELECT * FROM Tabla1 WHERE campo1 = 'hola'");
$sth->execute();

        print "<table>\n";
        while( $resptr =  $sth->fetchrow_hashref() )
        {
                print "<tr>";
                print "<td>" . $resptr->{"campo1"};
                print "<td>" . $resptr->{"campo2"};
                print "<td>" . $resptr->{"campo3"};
                print "<td>" . $resptr->{"campo4"};
                print "<td>" . $resptr->{"campo5"};
                print "\n";
        }
        print "</table>\n";
print "</body></html>\n";

$dbh->disconnect;