diff --git a/Sub-Quote-2.005001.tar.gz b/Sub-Quote-2.005001.tar.gz
new file mode 100644
index 0000000..0f946eb
Binary files /dev/null and b/Sub-Quote-2.005001.tar.gz differ
diff --git a/perl-Sub-Quote.spec b/perl-Sub-Quote.spec
new file mode 100644
index 0000000..d8996df
--- /dev/null
+++ b/perl-Sub-Quote.spec
@@ -0,0 +1,52 @@
+Name:           perl-Sub-Quote
+Version:        2.005001
+Release:        4
+Summary:        Efficient generation of subroutines via string eval
+License:        GPL+ or Artistic
+URL:            https://metacpan.org/release/Sub-Quote
+Source0:        https://cpan.metacpan.org/authors/id/H/HA/HAARG/Sub-Quote-%{version}.tar.gz
+BuildArch:      noarch
+
+BuildRequires:  perl-generators, perl-interpreter, perl(:VERSION) >= 5.6.0
+BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76, perl(strict), perl(warnings)
+BuildRequires:  perl(B), perl(Carp), perl(Exporter), perl(Scalar::Util)
+BuildRequires:  perl(Config), perl(constant), perl(Data::Dumper), perl(File::Spec)
+BuildRequires:  perl(lib), perl(overload), perl(POSIX), perl(Test::Builder)
+BuildRequires:  perl(Test::Fatal) >= 0.003, perl(Test::More) >= 0.94, perl(threads)
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Conflicts:      perl-Moo < 2.003000
+
+%description
+This package provides performant ways to generate subroutines from strings.
+
+%package        help
+Summary:        man files for %{name}
+Requires:       man
+
+%description    help
+This package includes man files for %{name}.
+
+%prep
+%autosetup -n Sub-Quote-%{version} -p1
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
+%make_build
+
+%install
+make pure_install DESTDIR=$RPM_BUILD_ROOT
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+make test
+
+%files
+%doc README
+%{perl_vendorlib}/*
+
+%files help
+%{_mandir}/man*/*
+
+%changelog
+* Sat Jan 11 2020 openEuler Buildteam <buildteam@openeuler.org> - 2.005001-4
+- Package init