If doing serial lookups is enough for you, simply checking the results of gethostbyname should work, except for the problem of round-robin DNS.

As an alternative, the DNS modules (for example, AnyEvent::DNS) can do more lookups and in parallel. With those, you can possibly get all names for hostname entries, at least the synopsis of AnyEvent::DNS suggests so.