sub is_private { my ($packed_ip) = @_; return ($packed_ip & "\xFF\x00\x00\x00") eq "\x0A\x00\x00\x00" || ($packed_ip & "\xFF\xF0\x00\x00") eq "\xAC\x10\x00\x00" || ($packed_ip & "\xFF\xFF\x00\x00") eq "\xC0\xA8\x00\x00"; }