my $dbh = DBI->connect($db, $username, $pass) || die $DBI->errstr();