Select Code to Download

# The runtime options to be passed to passwd
my $passwd_options = "--stdin";
...
open (PASSWD, "|-") || exec 'passwd', @args;
print PASSWD "$password\n$password\n";
close PASSWD;