Select Code to Download

system("useradd $user");
open PASSWD, "| passwd --stdin $user";
print PASSWD $password;
close PASSWD;