diff --git a/Mail-SPF-v2.8.0-POD.patch b/Mail-SPF-v2.8.0-POD.patch
new file mode 100644
index 0000000..9693b5a
--- /dev/null
+++ b/Mail-SPF-v2.8.0-POD.patch
@@ -0,0 +1,17 @@
+https://rt.cpan.org/Public/Bug/Display.html?id=86060
+
+--- a/lib/Mail/SPF/Util.pm
++++ b/lib/Mail/SPF/Util.pm
+@@ -155,9 +155,9 @@ sub ipv6_address_is_ipv4_mapped {
+ throws I<Mail::SPF::EInvalidOptionValue>
+ 
+ Returns the given I<NetAddr::IP> IPv4 or IPv6 address compactly formatted as a
+-I<string>.  For IPv4 addresses, this is equivalent to calling L< NetAddr::IP's
+-C<addr> |NetAddr::IP/addr> method.  For IPv6 addresses, this is equivalent to
+-calling L< NetAddr::IP's C<short> |NedAddr::IP/short> method.  Throws a
++I<string>.  For IPv4 addresses, this is equivalent to calling L<NetAddr::IP's
++C<addr>|NetAddr::IP/addr> method.  For IPv6 addresses, this is equivalent to
++calling L<NetAddr::IP's C<short>|NetAddr::IP/short> method.  Throws a
+ I<Mail::SPF::EInvalidOptionValue> exception if the specified object is not a
+ I<NetAddr::IP> IPv4 or IPv6 address object.
+ 
diff --git a/Mail-SPF-v2.9.0.tar.gz b/Mail-SPF-v2.9.0.tar.gz
new file mode 100644
index 0000000..78076e7
Binary files /dev/null and b/Mail-SPF-v2.9.0.tar.gz differ
diff --git a/perl-Mail-SPF.spec b/perl-Mail-SPF.spec
new file mode 100644
index 0000000..182c2d8
--- /dev/null
+++ b/perl-Mail-SPF.spec
@@ -0,0 +1,73 @@
+Name:           perl-Mail-SPF
+Version:        2.9.0
+Release:        19
+Summary:        Sender Policy Framework's object-oriented implementation
+License:        BSD
+URL:            https://metacpan.org/release/Mail-SPF
+Source0:        https://cpan.metacpan.org/authors/id/J/JM/JMEHNLE/mail-spf/Mail-SPF-v%{version}.tar.gz
+Patch0000:      Mail-SPF-v2.8.0-POD.patch
+BuildArch:      noarch
+BuildRequires:  coreutils perl-interpreter perl-generators perl(Module::Build) perl(version)
+BuildRequires:  perl(base) perl(constant) perl(Net::DNS) >= 0.62 perl(Net::DNS::Resolver)
+BuildRequires:  perl(NetAddr::IP) >= 4 perl(overload) perl(strict) perl(Sys::Hostname) perl(URI) >= 1.13
+BuildRequires:  perl(URI::Escape) perl(utf8) perl(warnings) perl(blib)
+BuildRequires:  perl(Net::DNS::Resolver::Programmable) >= 0.003 perl(Net::DNS::RR) perl(Test::More)
+BuildRequires:  perl(URI::Escape) perl(utf8) perl(warnings) perl(blib) perl(Test::Pod) >= 1.00
+BuildRequires:  perl-Error
+
+Requires:       perl(:MODULE_COMPAT_%(eval "$(perl -V:version)"; echo $version))
+Requires:       perl(Net::DNS) >= 0.62 perl(URI) >= 1.13
+Requires(post):   chkconfig
+Requires(postun): chkconfig
+
+%description
+Mail::SPF is the Sender Policy Framework's object-oriented implementation in Perl.
+
+%package_help
+
+%prep
+%autosetup -n Mail-SPF-v%{version} -p1
+
+%build
+perl Build.PL installdirs=vendor
+./Build
+
+%install
+./Build install destdir=%{buildroot} create_packlist=0
+%{_fixperms} %{buildroot}/*
+mv -f %{buildroot}%{_bindir}/spfquery %{buildroot}%{_bindir}/spfquery.%{name}
+mv -f %{buildroot}%{_sbindir}/spfd %{buildroot}%{_bindir}/spfd.%{name}
+mv -f %{buildroot}%{_mandir}/man1/spfquery.1 %{buildroot}%{_mandir}/man1/spfquery-%{name}.1
+touch %{buildroot}%{_bindir}/spfquery %{buildroot}%{_bindir}/spfd %{buildroot}%{_mandir}/man1/spfquery.1.gz
+
+%check
+./Build test
+
+%post
+/usr/sbin/update-alternatives --install %{_bindir}/spfquery spf %{_bindir}/spfquery.%{name} 10 \
+--slave %{_mandir}/man1/spfquery.1.gz spfquery-man-page %{_mandir}/man1/spfquery-%{name}.1.gz \
+--slave %{_bindir}/spfd spf-daemon %{_bindir}/spfd.%{name}
+
+%postun
+if [ $1 -eq 0 ] ; then
+/usr/sbin/update-alternatives --remove spf %{_bindir}/spfquery.%{name}
+fi
+
+%files
+%license LICENSE
+%{perl_vendorlib}/*
+%{_bindir}/spfquery.%{name}
+%{_bindir}/spfd.%{name}
+%ghost %{_bindir}/spfquery
+%ghost %{_bindir}/spfd
+
+%files help
+%doc CHANGES README TODO
+%{_mandir}/man1/*
+%{_mandir}/man3/*
+%ghost %{_mandir}/man1/spfquery.1.gz
+
+
+%changelog
+* Sat Nov 30 2019 Shuaishuai Song <songshuaishuai2@huawei.com> - 2.9.0-19
+- package init