my $dbh=DBI->connect($db,$username,$pass,{RaiseError => 1}) or die("Couldn't connect to database ".DBI::errstr);