codice:
#!/usr/bin/perl 

use DBI; 

$dbname = "test"; 
$user = "root"; 
$pass = ""; 
$table = "test"; 

my $db = DBI->connect("DBI:mysql:database=$dbname", $user, $pass) || die "Errore di connessione: $DBI::errstr\n"; 

my $result = $db->prepare("select * from $table"); 
$result->execute() || die "Errore select: $DBI::errstr\n"; 

while(@row = $result->fetchrow_array) { 
print @row, "\n"; 
} 

$db->disconnect;
prova così in modo da vedere il motivo dell'errore.