cosa vuol dire non va?

inserisci dei controlli ad esempio:

codice:
#!/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;por
t=3306", "root", "doggpw") or die "Errore connessione: $DBI::errstr\n";
$est=$dbh->prepare("select nick, oggetto, testo from gb_tab") or die "Errore prepare: $DBI::errstr\n";
$est->execute() or die "Errore execute: $DBI::errstr\n";

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

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