#!/usr/bin/perl
use strict;
use warnings;
use Crypt::Argon2 qw/argon2id_pass argon2id_verify/;
use DBI;
sub get_data; sub chec_pass;
sub get_data{
my ($user , $hash_pass);
my $statement = "SELECT * FROM LOGIN_DATA";
my $driver = "mysql";
my $database = "USERS";
my $dsn = "DBI:$driver:database=$database";
my $dataUsr = "root";
my $dataPass = "";
my $dbcon = DBI->connect($dsn,$dataUsr,$dataPass) or die  $!;
my $preState = $dbcon->prepare($statement);
$preState->execute();
my @row;
while (@row = $preState->fetchrow_array())
{
 
}
}
sub chec_pass {
my ($user, $password) = @_;
my $encoded = fetch_encoded($user);
return argon2id_verify($encoded  , $password);

}