my $m = Church->new('GeneralMotors') or die;
# $m is Church::GeneralMotors