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);