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