Select Code to Download

use strict;
use warnings;
require "cfg.pl";
...
    no warnings 'once';
    $db = new DB($CFG::SERVER, $CFG::DB, $CFG::USER, $CFG::DBPASSWD)
};

use strict;
use warnings;
use Cfg;
use Db;

my $db = new DB($CFG::SERVER, $CFG::DB, $CFG::USER, $CFG::DBPASSWD);