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