$pkt = AnyEvent::DNS::dns_pack({rd => 1, qd => [
                         [sprintf ('_%s._tcp.local', $service), 'PTR']] });