use strict;
use warnings;
use Net::DNS;

my $resolver = new Net::DNS::Resolver;
my $query = $resolver -> search ( $address );
if ( $query ) 
{
  foreach my $RR ( $query -> answer )
  {
    next unless $RR -> type eq "PTR";
    print $RR -> rdatastr, "\n";
  }
}