POSIX::getpeername provides getpeername(2).  perl's core getpeername
needs a open file handle.  POSIX::getpeername allows you to get
peername from sockfd.

WWW: https://metacpan.org/release/POSIX-getpeername