The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME
       Net::Ident - lookup the username on the remote end of a
       TCP/IP connection

SYNOPSIS
        use Net::Ident;

        $username = Net::Ident::lookup(SOCKET, $timeout);

        $username = Net::Ident::lookupFromInAddr($localsockaddr,
                                                  $remotesockaddr, $timeout);

        $obj = Net::Ident->new(SOCKET, $timeout);
        $obj = Net::Ident->newFromInAddr($localsockaddr, $remotesockaddr,
                                               $timeout);
        $status = $obj->query;
        $status = $obj->ready;
        $username = $obj->username;
        ($username, $opsys, $error) = $obj->username;
        $fh = $obj->getfh;
        $txt = $obj->geterror;

        use Net::Ident 'ident_lookup';

        $username = ident_lookup(SOCKET, $timeout);

        use Net::Ident 'lookupFromInAddr';

        $username = lookupFromInAddr($localsockaddr, $remotesockaddr, $timeout);

        use Net::Ident ':fh';

        $username = SOCKET->ident_lookup($timeout);

        use Net::Ident ':apache';

        # my Apache $r;
        $c = $r->connection;
        $username = $c->ident_lookup($timeout);


OVERVIEW
       Net::Ident is a module that looks up the username on the
       remote side of a TCP/IP connection through the ident
       (auth/tap) protocol described in RFC1413 (which supersedes
       RFC931). Note that this requires the remote site to run a
       daemon (often called identd) to provide the requested
       information, so it is not always available for all TCP/IP
       connections.