# NAME POSIX::getpeername - provides getpeername(2) # SYNOPSIS use POSIX::getpeername; use Socket; my $ret = POSIX::getpeername::_getpeername($fd, my $addr); die $! if $ret < 0; my ($peer_port, $peer_iaddr) = sockaddr_in($addr); # DESCRIPTION POSIX::getpeername provides getpeername(2). perl's core getpeername needs a open file handle. POSIX::getpeername allows you to get peername from sockfd. # RETURN VALUES The \_getpeername() function returns the value 0 if successful; otherwise the value -1 is returned and set errno to $! # SEE ALSO [POSIX::Socket](http://search.cpan.org/perldoc?POSIX::Socket), [Socket](http://search.cpan.org/perldoc?Socket) # LICENSE Copyright (C) Masahiro Nagano. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. # AUTHOR Masahiro Nagano