$dbh = &db_connect;
print "hi there 3\n";
#my $p = $dbh->sock;
#my $h = $dbh->host;
#my $d = $dbh->database;
#print "port: p\nhost: $h\ndb  : $d\n";
print "dbh: $dbh\n";
use Data::Dumper;
Data::Dumper->Dump([$dbh]);
foreach ( keys %$dbh) { print "$_=$dbh{$_}\n"; }
print "got here\n";

##</code><code>##

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