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