Select Code to Download

Select or download this

while (IO::Socket::connected($local_client) and recv ($local_client,$e
+,1,0)) { print $e; last unless
 IO::Socket::connected($local_client) };

Select or download this

fwdport   19309 user  5u  IPv4 296408  TCP *:2323 (LISTEN)
fwdport   19314 user  6u  IPv4 296409  TCP 10.1.10.20:2323->10.1.2.5:6
+0181 (CLOSE_WAIT)
fwdport   19314 user  7u  IPv4 296412  TCP 10.1.10.20:1044->10.1.1.2:t
+elnet (CLOSE_WAIT)
fwdport   19315 user  6u  IPv4 296409  TCP 10.1.10.20:2323->10.1.2.5:6
+0181 (CLOSE_WAIT)
fwdport   19315 user  7u  IPv4 296412  TCP 10.1.10.20:1044->10.1.1.2:t
+elnet (CLOSE_WAIT)