system "/usr/bin/passwd", $username;

##</code><code>##

print "Password: ";
chomp(my $passwd = <STDIN>);
$passwd = crypt($passwd, time());
$uid=($max+1);

system '/usr/sbin/useradd', "-u $uid", '-s', $shell,
        '-p', $passwd, '-g 100', '-m', $username;