my ($port, $addr) = unpack_sockaddr_in(getpeername(STDIN));
&log(sprintf("[Connect from %s (%s)]", gethostbyaddr($addr, AF_INET), inet_ntoa($addr)));
my $query = &readdata(\*STDIN);
my ($port, $addr) = unpack_sockaddr_in(getpeername(STDIN));
&log(sprintf("[Connect from %s (%s)]", gethostbyaddr($addr, AF_INET), inet_ntoa($addr)));
my $query = &readdata(\*STDIN);