diff --git a/Crypt-CBC-2.33.tar.gz b/Crypt-CBC-2.33.tar.gz
new file mode 100644
index 0000000..1707b64
Binary files /dev/null and b/Crypt-CBC-2.33.tar.gz differ
diff --git a/perl-Crypt-CBC.spec b/perl-Crypt-CBC.spec
new file mode 100644
index 0000000..f92462a
--- /dev/null
+++ b/perl-Crypt-CBC.spec
@@ -0,0 +1,53 @@
+Name:          perl-Crypt-CBC
+Version:       2.33
+Release:       21
+Summary:       Encrypt Data with Cipher Block Chaining Mode
+License:       GPL+ or Artistic
+URL:           https://metacpan.org/release/Crypt-CBC
+Source0:       https://cpan.metacpan.org/authors/id/L/LD/LDS/Crypt-CBC-%{version}.tar.gz
+BuildArch:     noarch
+BuildRequires: perl-generators perl(bytes) perl(constant) perl(Digest::MD5) >= 2.00
+BuildRequires: perl(ExtUtils::MakeMaker)
+Requires:      perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+BuildRequires: perl(Crypt::DES)
+
+%description
+This is Crypt::CBC, a Perl-only implementation of the cryptographic
+cipher block chaining mode (CBC).  In combination with a block cipher
+such as Crypt::DES or Crypt::IDEA, you can encrypt and decrypt
+messages of arbitrarily long length.  The encrypted messages are
+compatible with the encryption format used by SSLeay.
+
+%package help 
+Summary:       Help documentation of %{name} package
+
+%description help
+Help documentation of %{name} package.
+
+%prep
+%autosetup -n Crypt-CBC-%{version} -p1
+chmod 644 eg/*.pl
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+%make_build
+
+%install
+rm -rf $RPM_BUILD_ROOT
+make pure_install DESTDIR=$RPM_BUILD_ROOT
+find $RPM_BUILD_ROOT -type f -name .packlist -delete
+%{_fixperms} $RPM_BUILD_ROOT
+
+%check
+make test
+
+%files
+%doc Changes README eg/
+%{perl_vendorlib}/Crypt/
+
+%files help
+%{_mandir}/man3/*
+
+%changelog
+* Thu Mar 12 2020 daiqianwen <daiqianwen@huawei.com> - 2.33-21
+- Package init