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

WWW: http://search.cpan.org/dist/POSIX-getpeername/
