#!/usr/bin/perl -w

#use strict;
use Net::DNS;

$res = new Net:DNS::RR;
$query = $res->query("216.8.86.8","PTR");

if ($query) {
  foreach $rr ($query->answer) {
    next unless $rr->type eq "PTR";
    print "ptrdname =", $rr->ptrdname, "\n";
#    print $rr->address, "\n";
  }
} else {
  print "query failed: ", $res->errorstring, "\n";
}