use Data::Dumper;
use CBIDatabase;

my $dbh  = CBIDatabase->new();

$dbh->load_package('Company');

my %company;
$company{'id'} = '03459875437';

my $ref = $dbh->Company::client(\%company,'*',);
print "\n\nAsking for all matching table info:\n";
print Dumper($ref);

##</code><code>##

use strict;
use DBI;

my @ISA = qw(Company);

sub load_package  {
  my $self = shift;
  my $package = shift;
  require eval{$package.'.pm'};
}
sub new {
  ## database stuff here
}