$peer_host = gethostbyaddr($ipaddr, AF_INET) || die "$!";