my %BusMod= loadAll "Acme::Business::Manufacturor::*";
...
    my $cust= $BusMod{Customer}->new( ... );