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
}