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

[grabro]

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

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();