use IPC::Open2;
my $pidSsh = open2($RDR,$WTR,"perl /mnt/1/service/ICtool/IC4.pl --full");
print "Just for debugging :third line\n";
my $line1 = <$RDR>;
print $line1;
print $WTR "Abhinav \n" if ($line1 eq "User name :");
my $line2 = <$RDR>;
print $line2;
print $WTR "Testing \n" if ($line2 eq "Reason for running IC tool:");