questo è il semplicissimo codice che utilizzo. Al posto delle variabili avrei potuto utilizzare i placeholders, ma ho alcuni problemi a utilizzarli in sostituzione al nome della tabella.

#!/usr/bin/perl

use DBI;

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

my $db = DBI->connect("DBI:mysql:$dbname", $user, $pass);

$DBI::result = $db->prepare("select * from $table");
$DBI::result->execute();

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

$db->disconnect;
con
root@localhost# perl nomefile.pl tutto funziona bene.
ciao e grazie!