$ perl -wE 'use Data::Dumper; my $dbh = bless {} => q{DBConnect::db}; print Dumper($dbh);'
$VAR1 = bless( {}, 'DBConnect::db' );