Copyright © tutorialspoint.com
getsockname SOCKET
Returns a packed address of the local end of the network socket SOCKET.
In scalar context undef on error otherwise Packed address of local socket
Try out following example: Here SOCK is the socket ID
#!/usr/bin/perl use Socket; $mysockaddr = getsockname(SOCK); ($port, $myaddr) = sockaddr_in($mysockaddr); printf "Connect to %s [%s]\n", scalar gethostbyaddr($myaddr, AF_INET), inet_ntoa($myaddr);