use strict; use warnings; use Cfg; use Db; my $db = new DB($CFG::SERVER, $CFG::DB, $CFG::USER, $CFG::DBPASSWD);