my $dbh = DBI->connect($dsn,$username,$password, {RaiseError => 1, PrintError => 0 })
    or die "cannotconnect to database : $DBI::errstr";