[PERL] Errore su chiamata a funzione disconnect() accedendo a MySQL

[saintex]

ciao,
mi mancano le chiamate alle funzioni,
ma da quello che vedo, qui:

sub click_connect {
    $dbh->disconnect();
...
}

$dbh->disconnect();
sta effettuando una disconessione a una connessione a db mai creata.
Dovrebbe bastare commentarla:

#$dbh->disconnect();

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?