Select Code to Download

use IO::Socket;
use Socket;
...
print $sock->sockport(),"\n";
print $sock->peerhost(),"\n";
print $sock->peerport(),"\n";

use IO::Socket::INET6;
use Socket;
...
print $sock->sockport(),"\n";
print $sock->peerhost(),"\n";
print $sock->peerport(),"\n";

0.0.0.0
32807
10.254.83.40
23456

::
-4622771466457284569
2000:1234:5678:9abc::eeff
-4622771466457293920