# The runtime options to be passed to passwd
my $passwd_options = "--stdin";

# All the arguments to be passed to passwd, including name
my @args = qw($passwd_options $name);

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