Hello perlmonks,
I am trying to use perlipc open2 module for writing a wrapper over passwd command. Below is the code which I took from this site.

At Line X in below code, I need to read what passwd command is asking, Current password or new password and depending on that I need to supply old or new password.
.

Can anyone please tell me how to do that.Any help would be greatly appreciated

Thanks,
Sajid

my $pid = open2( \*Reader, \*Writer, "passwd" ) or warn $!;
Writer->autoflush();
Reader->autoflush();
STDIN->autoflush();
$SIG{ALRM} = sub {die}; # required for alarm call below
do {
print ": "; # simple prompt
#my $cmd = <STDIN>;
#print Writer $cmd;
my $got;
while (1) {
eval { alarm 3; $_=<Reader> }; # get line in 3 seconds or stop reading
$got .= $_; // Line X
print Writer "mypassword1";
alarm 0;
last if ($@ or !(defined($_))); # exit loop if there was a timeout or no data
#$got .= $_;
#print $got
}
# print $got;
} while(1);