I think the system-call functionality you want is getsockname (as opposed to getpeername which returns the IP and port of the remote end).

It looks like this is implemented in IO::Socket as sockname, so see what you get back from:

  $server->sockname();
[download]

Good luck.