my $username=CGI::Simple->new;
my $pass=CGI::Simple->new;
$username->param('textfield');
$pass->param('pass');

##</code><code>##

my $username = 'Fred';
my $password = 'Flintstone123';
my $cgi      =  CGI::Simple->new( { username => $username, pass => $password } );

user_crypt($cgi);

##</code><code>##

sub user_crypt
{
    my ($cgi)    = @_;
    my  $cryUser = $cgi->param('username');
    my  $cryPass = $cgi->param('pass');
    my  $salt    = rand(16);
    my  $encode  = argon2id_pass($cryPass, $salt, 3, '32M', 1, 16);

    createUser($cryUser, $encode);
}