use DBConfig;
use DBI;

my $dbh=DBI->connect(DBConfig::DSH,DBConfig::User,DBConfig::Password) or die $DBI::errstr;