my $dsn          = 'NULL';
my $db_user_name = 'NULL';
my $db_password  = 'NULL';

my $dbh = DBI->connect($dsn, $db_user_name, $db_password) || die $dbh->errstr;