use Crypt::PasswdMD5;

my $crypted = unix_md5_crypt $passwd, $salt;

##</code><code>##

my $crypted = crypt $passwd, $salt;


##</code><code>##

system("adduser", "bob", "-p", $crypted) == 0
    or die "Error adding user 'bob': $!$/";