Help for this page

Select Code to Download

Select or download this

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