Select Code to Download

"my" variable $dbh masks earlier declaration in same scope...

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

my $dbh_1 = ...
...
my $dbh_2 = ...