package MyCDBI;
use base 'Class::DBI::mysql';
sub db_Main {
  use DBI;
  return DBI->connect('dbi:mysql:mydb', 'me', 'mypwd')
    or die DBI->errstr;
}