sub passwd {
        my $cleartext_pass=$_[0];
        my $ppr = Authen::Passphrase::MD5Crypt->new(
                        salt_random => 1,
                        passphrase => $cleartext_pass);
        my $passwdo = $ppr->as_crypt;
        return $passwdo;
        }

##</code><code>##

my $rela ... #This is the module that is "multi-level" and the DB part has passwd function in it
...
	if (param('pass') == param ('pass_again')) {
		my $pass_clear=param('pass');
		my $password=$rela->passwd($pass_clear);
		$rela->do('INSERT INTO uzivatele (jmeno,prijmeni,heslo,login,stav_uctu,skupina,vytvoren) VALUES (?, ?, ?, ?, 2, \'user\', CURRENT_TIMESTAMP)', param('jmeno'), param('prijmeni'), $password, param('login'));