open PROG, "-|" || exec './prog', 'arg';
@chunks = <PROG>;
close PROG;

##</code><code>##

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