Select Code to Download

use My::Config;
no strict 'refs';
*'My::Config::DB_NAME' = sub { 'new_db' };

$ perl -MO=Deparse -e '
> package Foo;
...
-e syntax OK
print 'baz', "\n";
print 'Foo'->bar, "\n";