I am trying to send and receive requests to the same socket in the following fashion.
1) open socket
2) send LOGINPDU,
3) recv response from server and if ok send TRANSPDU
4) recv response from server
5) send LOGOUTPDU.
#Sample of what am trying to do below:
my $sock = IO::Socket::INET->new( Proto=> "tcp", PeerAddr => "$IP",
PeerPort => "$port") || die "Could not connect to host => $IP:
print $sock $LOGINPDU."\n";
print $sock $transPDU."\n";
The problem is that am only receiving response for the first request. Am not receiving response for the second pdu