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

##</code><code>##

my $dbh->do($sql) || die $dbh->errstr();