path: root/nocompile/libexec/peerip.pl

#!/usr/pkg/bin/perl
use Socket;
($port,$addr) = sockaddr_in(getpeername(STDIN));
print inet_ntoa($addr) . "\n";