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