Select Code to Download

use Crypt::PasswdMD5;

my $crypted = unix_md5_crypt $passwd, $salt;

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