gistfile1.pl

#/usr/bin/env perl -w
use strict;

use Mail::SPF;
    
my $spf_server  = Mail::SPF::Server->new(
	# Optional custom default for authority explanation:
	default_authority_explanation => 'See http://www.%{d}/why/id=%{S};ip=%{I};r=%{R}',
	max_dns_interactive_terms => 18
);

foreach my $argnum (0 .. $#ARGV) {
	my $identity = $ARGV[$argnum];
	my $request = Mail::SPF::Request->new (identity => $identity, ip_address => '192.168.1.1');
	my $result = $spf_server->process($request);
	print "$identity: $result\n";
}