Exemple of Reputation::TeamCymru

use Net::DNS::Simple;
use Net::DNS::Reputation::TeamCymru;
use feature qw/say/;

my $res = Net::DNS::Simple->new("google.com", "A");

for my $entry ($res->get_answer_section()) {
    my @ip4 = split /\t/, $entry;
    say "Checking reputation for this ip:", $ip4[-1];
    my $rept = Net::DNS::Reputation::TeamCymru->new({
        entity => $ip4[-1],
        service => "origin"});
    say $rept->get_response();
}