Select Code to Download

$dbh = &db_connect;
print "hi there 3\n";
...
Data::Dumper->Dump([$dbh]);
foreach ( keys %$dbh) { print "$_=$dbh{$_}\n"; }
print "got here\n";

hi there 3
dbh: DBI::db=HASH(0x3de72b0)
got here