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

$dns_name = $res->query('198.133.219.25';);
@antworten = $dns_name->answer;

for my $antwort(@antworten){
     print $antwort->ptrdname;
}