As a companion to PythonDNSQueries , here is the sameprogram to query the SBL in perl, using the CPAN Net::DNS package.

#!/usr/bin/perl -wuse strict;use Net::DNS;my $sstr = ".sbl.spamhaus.org";my $res = Net::DNS::Resolver->new;foreach my $ip (@ARGV) {	$ip = join('.', reverse(split(/\./

I have a machine (my Debian Woody machine) that has far less aggressiveantispam defenses than anything else (as a result of an old andincapable mailer that is the Debian Woody default). As a result, I getto see an interesting view of some current spammer methods, more or lesslive and unfiltered.

One of the interesting things is that when email addresses on thismachine get spammed, they usually get several copies of the samemessage, all from the same origin address and the same machine.

My

Every now and then, there comes a time when you need to make DNSqueries more complicated than gethostbyname and gethostbyaddr . Orat least, that's what happens to me.

When this happens, my best Python tool is the dnspython module , a pure Python modulefor doing all sorts of DNS manipulation. But dnspython is alittle bit obscure to use, so here's a sample program.

This program looks up IP addresses on the command line that are in the SBL and reports the URLs to their SBL