gethostbyaddr() uses your machine's name resolution mechanisms. In general, you cannot (easily) do what you want.
I suggest you go and fetch Net::DNS from the nearest CPAN archive. With this module, you can emulate your DNS resolver behavior in quite powerful ways. In particular, you can specify a list of name servers to query, and craft customized DNS questions.
Good luck...