print "Password: ";
chomp(my $passwd = <STDIN>);

system(
    '/usr/sbin/useradd',
    -u => $max + 1,
    -s => $shell,
    -p => crypt($passwd, time),
    -g => 100,
    '-m',
    $username,
);

##</code><code>##

system(
    '/usr/bin/sudo',
    '/usr/sbin/useradd',
    -u => $max + 1,
    -s => $shell,
    -p => crypt($passwd, time),
    -g => 100,
    '-m',
    $username,
);