Select Code to Download

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

use strict;
use DBI;
...
sub new {
  ## database stuff here
}