Help for this page
my $dbh=DBI->connect($db,$username,$pass,{RaiseError => 1}) or die("Co +uldn't connect to database ".DBI::errstr);
$dbh->do($sql);