interrrogare DB MYSQLi (codice che non va?)

[C232]

ragazzi ecco il codice per interrogare il RDBMS MySQLi ma non va:

#!/usr/bin/perl
print("content-type:text/html\n\n");

use CGI qw(:all);
use DBI;

$dbh=DBI->connect("dbi:mysql:database=gb;host=localhost;port=3306", "root", "doggpw");
$est=$dbh->prepare("select nick, oggetto, testo from gb_tab");
$est->execute();

while(($nick, $oggetto, $testo)=$est->fetchrow_array()) {
 print($nick, $oggetto, $testo);
}

$est->finish();
$dbh->disconnect();

Come mai?