my $sock = IO::Socket::INET->new( Proto=> "tcp", PeerAddr => "$IP", PeerPort => "$port") || die "Could not connect to host => $IP:$port \n"; print $sock $LOGINPDU."\n"; while($ans=<$sock>){ $ans1.=$ans; } $sock->flush(); if($ans1){ print $sock $transPDU."\n"; while($tns=<$sock>){ $tns.=$tns; } } $sock->close();