my $SQL = "select IdUsuario,Password from Usuarios";
        if($connection->Sql($SQL))
        {
            print "NO Se puedo realizar la intrucción:\n $SQL\n";
            print "A ocurrido un error:\n";
            print $connection->Error() . "\n";
       
           ## Closing the database connection
            $connection->Close();
       
            ## Exiting the program
            die;
        }
        while ($connection->FetchRow())
        {
                ##este resultado lo quiero enviar a seekU
                my  %dataRow = $connection->DataHash();
                       
        }
               
sub seekU() {
## aqui necesito buscar en el hash dataRow
       
        }