Ya know, that sort of in-breeding is illegal in most states...
j
(heavily snipped)
use Control::Globals;
use Control::Hotels;
my $Globals = new Control::Globals;
$Globals->add('dbh',$dbh);
my $h = new Control::Hotels(Globals=>$Globals);
$Globals->add('Hotels',$h);