You can, though I'm not sure if there's any quirks to it (including how it behaves when not run from inetd)

    my $hersockaddr    = getpeername(STDOUT);
    my ($port, $iaddr) = sockaddr_in($hersockaddr);
    my $ip = inet_ntoa($iaddr);
[download]

That gives you $port and $ip nicely ready to use.