Select Code to Download

    lib/Our/Code/Customer.pm
    lib/Our/Code/Datacenter.pm
    lib/Our/Code/Item.pm
...
    lib/Our/Code/Order.pm
    lib/Our/Code/Server.pm
    lib/Our/Code/Server/Dedicated.pm

    use aliased 'Our::Code::*';

    my $cust       = Customer->new;
...
    my $order      = Order->new;
    my $server     = Server->new;
    my $ded_server = ServerDedicated->new;   # unsure of this

    use Our::Code::Customer;
    use Our::Code::Datacenter;
    use Our::Code::Item;
...
    my $order      = Our::Code::Order->new;
    my $server     = Our::Code::Server->new;
    my $ded_server = Our::Code::Server::Dedicated->new;

    sub Order {
      my $class = 'Our::Customer::Order';
      if ( exists $INC{'lib/Order.pm'} ) {
...
      # load the class if not loaded
      return $class;
    }