Local socket endpoint IP?

I'm attempting to determine which local interface is used to access a remote
machine.  After successfully opening a TCP socket:

     my $sock = IO:Socket::INET->new(PeerAddr=>$remotehost,
PeerPort=>$remoteport, Proto=>'tcp') or die;

I tried calling sockhost:

     print $sock->sockhost, "\n";

but that just prints out 0.0.0.0.  So how do I find out the actual endpoint
IP?


-- 
Mark J. Reed <markjreed@gmail.com>

• Local socket endpoint IP? by Mark J. Reed
• Re: Local socket endpoint IP? by Ben Morrow
• Re: Local socket endpoint IP? by Tony Cook
• Re: Local socket endpoint IP? by Mark J. Reed