my $connect = DBI->connect($dsn, $user, $pw)or die "NOT WORKING";

##</code><code>##

my $connect = DBI->connect($dsn, $user, $pw, {RaiseError => 1});