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

$dns_name = $res->query('198.133.219.25';);
$antwort=($dns_name->answer)[0];
print $antwort->ptrdname;