summaryrefslogtreecommitdiff
path: root/nocompile/libexec/peerip.pl
blob: 2000ad986ddfb18052c78d495e14cde8ce24472b (plain) (blame)
1
2
3
4
5
#!/usr/pkg/bin/perl
use Socket;
($port,$addr) = sockaddr_in(getpeername(STDIN));
print inet_ntoa($addr) . "\n";