my $dbh = ...;
print "This works\n";
$dbh->disconnect;
...
$dbh = DBI->connect ... # no my declaration