Name "CFG::SERVER" used only once: possible typo at x.pl line 69.<br>
Name "CFG::DB" used only once: possible typo at x.pl line 2097.<br>
Name "CFG::USER" used only once: possible typo at ad.pl line 69.<br>

##</code><code>##

use strict;
use warnings;
require "cfg.pl";
require "db.pl";
my $dB = new DB($CFG'SERVER, $CFG'DB, $CFG'USER, 'DBPASSWD);