perl-Mail-SPF-Query -- Query Sender Policy Framework
http://search.cpan.org/dist/Mail-SPF-Query/
The SPF protocol relies on sender domains to publish a DNS whitelist of their designated outbound mailers. Given an envelope sender, Mail::SPF::Query determines the legitimacy of an SMTP client IP.