sub connect_to_db {
   my $tns_name            = shift;
   my $logger              = shift;
   my $run_as_user         = shift;
   my $system_password     = shift;
   my $system_password2    = shift;

   my $dbh;
   my $correct_password;

#  try connecting with one password then the other, if both passwords fail mark it as failed
   try {
      $dbh = DBI->connect( "DBI:Oracle:".$tns_name, $run_as_user, $system_password,
           { PrintError => 1, RaiseError => 1, AutoCommit => 1 } );
      $correct_password = $system_password;
   } catch {
      print "wrong password, try another\n";
   };


   if ( undef $dbh ) {
      try {
         $logger->info( 'password two |'.$system_password2.'|');
         $dbh = DBI->connect("DBI:Oracle:".$tns_name,  $run_as_user, $system_password2,
              { PrintError => 1, RaiseError => 1, AutoCommit => 1 } );
         $correct_password = $system_password2;
      } catch {
         print "wrong password, add it to the connection issues list\n";
      };
   }

   if ( undef $dbh ) {
      push @db_connect_issues, "error:".$tns_name." -- ".$DBI::errstr;
   } else {
      $users_and_passwords{ 'INSTALLER'}{$run_as_user } = $correct_password;
      print ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> The right password is $correct_password <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n";
   }

   return $dbh;
}