diff --git a/Authen-SASL-2.16.tar.gz b/Authen-SASL-2.16.tar.gz
new file mode 100644
index 0000000..fe41672
Binary files /dev/null and b/Authen-SASL-2.16.tar.gz differ
diff --git a/Authen-SASL-RT85294-Fix-WRITE.patch b/Authen-SASL-RT85294-Fix-WRITE.patch
new file mode 100644
index 0000000..0093ad2
--- /dev/null
+++ b/Authen-SASL-RT85294-Fix-WRITE.patch
@@ -0,0 +1,13 @@
+diff -up Authen-SASL-2.16/lib/Authen/SASL/Perl.pm.orig Authen-SASL-2.16/lib/Authen/SASL/Perl.pm
+--- Authen-SASL-2.16/lib/Authen/SASL/Perl.pm.orig	2012-09-04 18:00:31.000000000 +0200
++++ Authen-SASL-2.16/lib/Authen/SASL/Perl.pm	2014-06-04 09:51:34.654310724 +0200
+@@ -323,6 +323,9 @@ sub securesocket {
+ 
+     my $fh = $self->{fh};
+ 
++    # Fix for BZ#965739, RT#85294
++    $len = length($_[1]) if $len > length($_[1]);
++
+     # put on wire in peer-sized chunks
+     my $bsz = $self->{sndbufsz};
+     while ($len > 0) {
diff --git a/perl-Authen-SASL.spec b/perl-Authen-SASL.spec
new file mode 100644
index 0000000..a8f116f
--- /dev/null
+++ b/perl-Authen-SASL.spec
@@ -0,0 +1,55 @@
+Name:           perl-Authen-SASL
+Version:        2.16
+Release:        16
+Summary:        Perl's SASL authentication framework
+License:        GPL+ or Artistic
+URL:            https://metacpan.org/release/Authen-SASL
+Source0:        https://cpan.metacpan.org/authors/id/G/GB/GBARR/Authen-SASL-%{version}.tar.gz
+Patch0001:      Authen-SASL-RT85294-Fix-WRITE.patch
+BuildArch:      noarch
+
+BuildRequires:  coreutils findutils make perl-interpreter perl-generators perl(inc::Module::Install)
+BuildRequires:  perl(Module::Install::Makefile) perl(Module::Install::Metadata) perl(Module::Install::WriteAll)
+BuildRequires:  perl(strict) perl(warnings) sed perl(bytes) perl(Carp) perl(Digest::HMAC_MD5) perl(Digest::MD5)
+BuildRequires:  perl(GSSAPI) perl(Tie::Handle) perl(vars) perl(FindBin) perl(Test::More)
+Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+
+%description
+Authen::SASL::Perl is the pure Perl implementation of SASL mechanisms in the Authen::SASL framework,
+At the time of this writing it provides the client part implementation for the following SASL mechanisms.
+
+%package help
+Summary:        Documentation for perl-Authen-SASL
+
+%description help
+Documentation for perl-Authen-SASL.
+
+%prep
+%autosetup -n Authen-SASL-%{version} -p1
+
+rm -r inc
+sed -i -e '/^inc\// d' MANIFEST
+chmod -c a-x example_pl
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+%make_build
+
+%install
+make pure_install DESTDIR=%{buildroot}
+find %{buildroot} -type f -name .packlist -delete
+%{__chmod} -Rf a+rX,u+w,g-w,o-w %{buildroot}
+
+%check
+make test
+
+%files
+%{perl_vendorlib}/*
+
+%files help
+%doc api.txt Changes example_pl
+%{_mandir}/man3/*
+
+%changelog
+* Tue Nov 26 2019 fengbing <fengbing7@huawei.com> - 2.16-16
+- Package init