use strict;
use My::DB;
{
  no warnings 'redefine';
  $My::DB::dbname = 'dbi:mysql:test_db';
};

my $dbh = My::DB::dbh;

...