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