Fast DNS queries with Perl
For some jobs, you need to quickly resolve large amounts of DNS queries.
The AnyEvent::DNS module allows you to resolve DNS queries fast and in parallel.
To test this, I wrote a simple command line tool to check XMPP SRV records of a list of domains. Both server-to-server and client-to-server records will be checked and results printed out. All queries will be made in parallel.
The code is at my Ironman repository. Click the "Raw" link to download (sorry, no direct link, GitHub lacks permalinks to the latest raw version of a file).
