angel# cat pass2.pl
#!/usr/bin/perl

$cmd = "/usr/sbin/pw";

$pass= "monkey1";
$username= "test";

open(BLAH,"| $cmd user mod $username -h 0");

print BLAH $pass;

close BLAH;
angel#


bisognare usare pw!