in reply to AnyEvent and strange DNS queries

That's because you are trying to connect to http service:
my $handle; $handle = new AnyEvent::Handle connect => [$host => 'http'],
It tries to find the SRV record for http service on $host. Replace it with the port number:
connect => [$host => 80],
and it will just resolve the host name.