#!/usr/bin/perl -w

use strict;
use warnings;
use Mail::SPF;
use Data::Dumper;

my $spf_srv = Mail::SPF::Server->new();
my $spf_req = Mail::SPF::Request->new(
#  scope => "helo",
  scope => "mfrom",
  identity => "ogris.de",
#  identity => "mout.gmx.net",
#  identity => "MAILER-DEAMO",
  ip_address => "212.227.17.21",
#  ip_address => "2001:19f0:5801:1e6f::10",
#  helo_identity => "box2.ogris.de",
);

my $spf_res = $spf_srv->process($spf_req);

#print Data::Dumper::Dumper($spf_res);

print "Code:             ", $spf_res->code,
    "\nSPF header name:  ", $spf_res->received_spf_header_name,
    "\nText:             ", $spf_res->text,
    "\nString:           ", $spf_res->stringify,
    "\nExplanation:      ", $spf_res->local_explanation,
    "\nSPF header value: ", $spf_res->received_spf_header,
    "\nScope:            ", $spf_req->scope,
    "\n";