Personally, I find Net::DNS much easier to use. Consider:

#! /usr/bin/perl -w

use strict;
use Net::DNS;

my $r = Net::DNS::Resolver->new;

for my $ip (@ARGV) {
    my $reverse = join( '.', reverse( split /\./, $ip )) . '.in-addr.a
+rpa';
    if (my $ap = $r->query( $reverse, 'PTR' )) {
        for my $pa ($ap->answer) {
            print "$ip => ", $pa->ptrdname, $/;
        }
    }
    else {
        print "$ip => NXDOMAIN\n";
    }
}

__OUTPUT__
./ptr 69.147.76.15
69.147.76.15 => f1.www.vip.re1.yahoo.com
[download]

Update: easier... hmmm... let me rephrase that: "gives me finer control over what I want to do". It's a really useful module to have in your toolkit if you ever have to grovel around with CNAME, MX, NS, SOA records and the like.

2nd update: new improved! with error checking!

Thank you very much i have tired that out and it works.

Try this:

Uses 'host' for a key in the PTR query instead of 'domain'. I just copied the example provided in the module's documentation.

Update: It doesn't work for me either. This module is just a wrapper for Net::DNS. You can fix the problem by deleting an if statement in its _lookup_ptr function.

If you substitute the following ...

    $query = $res->search($term, "PTR") || return;
    for $rr ($query->answer) {
        if ($rr->can('ptrdname')) {
            push @answers, $rr->ptrdname;
        }
    }
[download]

with ...

    $query = $res->search($term, "PTR") || return;
    for $rr ($query->answer) {
            push @answers, $rr->ptrdname;
    }
[download]

then it works as expected :)

All to unfortunately it still doesn't work from reading the documentation it was my understanding that i could use "host", "domain", or "term" all interchangeably :( but still no luck.