Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
  );
}
use MyCDBI;

my $cfg = new Config::IniFiles( -file => 'settings.ini' );
$ENV{_MyCDBI} = join("\t",
  $cfg->val('Database', 'dsn'),
...
  $cfg->val('Database', 'Password')
);
require MyCDBI;

package MyCDBI;
use base 'Class::DBI::mysql';
__PACKAGE__->connection(split("\t", $ENV{_MyCDBI}));

my $obj = MyCDBI::SomeDBObj->retrieve(1);
# versus
my $cls = new MyCDBI;
my $obj = $cls->SomeDBObj->retrieve(1);