Help for this page
open PROG, "-|" || exec './prog', 'arg'; @chunks = <PROG>; close PROG;
open (PASSWD, "|-") || exec 'passwd', $name; print PASSWD "$password\n$password\n"; close PASSWD;