my $sock = IO::Socket::INET->new(
PeerAddr => "$IP",
PeerPort => "$port")
|| die "Could not connect to host => $IP:$port \n";
print $sock $LOGINPDU."\n";
print $sock $transPDU."\n";
What problem are you seeing?
- ...the majority is always wrong, and always the last to know about it...
- The Spice must flow...
- ..by my will, and by will alone.. I set my mind in motion