mi da questo errore da quando ho cambiato server
Can't call method "disconnect" on an undefined value at

ho installato tutte le librerie ma da sempre questo errore oppure
"prepare" nel file functions_mysql.cgi valore non definito ma non so come correggere è uno script che ho da molti anni
ed è sempre andato bene nonostante i cambi di server

queste le parti incriminate

sub click_connect {
$dbh->disconnect();
my ($database, $host, $username, $password) = @_;
$dbh = DBI->connect("DBI:mysql:$database:$host", "$username", "$password");
die ("database connect failed") unless $dbh;
}
###############################################

###############################################
sub disconnect {
#$sth->finish();
$dbh->disconnect();
undef $sth;
}

sub mySQL {
my ($statement) = @_;
my $sth = $dbh->prepare($statement);
$sth->execute || die "Bad statement ($statement) $DBI::errstr";
return $sth;
}

qualcuno è esperto di perl?