my $l_dns = Net::DNS::Resolver->new( nameservers => qw(127.0.0.1) );
my $l_response = $l_dns->query($l_ip);

if($l_dns->errorstring eq 'NOERROR')
  {
my $l_record;

  foreach $l_record ($l_response->answer())
    {
    if($l_record->type() eq 'PTR')
      {
      $l_dns_name = $l_record->name();
      last;
      }
    }
  }
else
  {
  $l_dns_name = $l_ip;
  }