open (PASSWD, "|-") || exec 'passwd', $name;
print PASSWD "$password\n$password\n";
close PASSWD;