#!/usr/bin/perl
# Author: Peter R. Wood, http://prwdot.org/

use strict;
use Net::DNS::Resolver;

print "Building Net::DNS::Resolver object.\n";
my $res = new Net::DNS::Resolver;

my @ips = qw(
);

print "Looking up IPs in SBL-XBL\n";
foreach my $ip (@ips) {
    print "$ip\n";
    my @ip = split( /\./, $ip );
    @ip = reverse(@ip);
    my $reversed_ip = join( '.', @ip );
    my $querystring = $reversed_ip . '.sbl-xbl.spamhaus.org';
    my $packet      = $res->send($querystring);
    if ($packet) {
        if ( $packet->answer ) {
            print "Found:\n";
            my @answer = $packet->answer;
            foreach my $record (@answer) {
                print $record->rdatastr . "\n";
            }
        }
        else {
            print "Not found.\n";
        }
    }
    else {
        print "Error: " . $res->errorstring . "\n";
    }
    print "\n";
    sleep(2);
}
print "Finished.\n";