diff --git a/Error-0.17029.tar.gz b/Error-0.17029.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..f5680bc206795311ba2eeae66801d009f65b1ece
Binary files /dev/null and b/Error-0.17029.tar.gz differ
diff --git a/perl-Error.spec b/perl-Error.spec
new file mode 100644
index 0000000000000000000000000000000000000000..33cdb0d7edde02f660328200168c00537ae9b470
--- /dev/null
+++ b/perl-Error.spec
@@ -0,0 +1,79 @@
+%define anolis_release 1
+Name:           perl-Error
+Epoch:          1
+Version:        0.17029
+Release:        %{anolis_release}%{?dist}
+Summary:        Error/exception handling in an OO-ish way
+License:        (GPL+ or Artistic) and MIT
+URL:            https://metacpan.org/release/Error
+Source0:        https://cpan.metacpan.org/modules/by-module/Error/Error-%{version}.tar.gz
+BuildArch:      noarch
+# Build
+BuildRequires:  coreutils
+BuildRequires:  findutils
+BuildRequires:  make
+BuildRequires:  perl-generators
+BuildRequires:  perl-interpreter
+BuildRequires:  perl(ExtUtils::MakeMaker)
+# Runtime
+BuildRequires:  perl(Carp)
+BuildRequires:  perl(Exporter)
+BuildRequires:  perl(overload)
+BuildRequires:  perl(Scalar::Util)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(vars)
+BuildRequires:  perl(warnings)
+# Tests
+BuildRequires:  perl(base)
+BuildRequires:  perl(blib)
+BuildRequires:  perl(File::Spec)
+BuildRequires:  perl(IO::Handle)
+BuildRequires:  perl(IPC::Open3)
+BuildRequires:  perl(lib)
+BuildRequires:  perl(Test::More)
+# Dependencies
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires:       perl(Carp)
+
+# Avoid provides/requires from examples
+%global __provides_exclude_from ^%{_docdir}
+%global __requires_exclude_from ^%{_docdir}
+
+%description
+The Error package provides two interfaces. Firstly Error provides a
+procedural interface to exception handling. Secondly Error is a base class
+for errors/exceptions that can either be thrown, for subsequent catch, or
+can simply be recorded.
+
+%prep
+%setup -q -n Error-%{version}
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=%{buildroot}
+find %{buildroot} -type f -name .packlist -delete
+%{_fixperms} -c %{buildroot}
+
+%check
+make test
+
+%files
+%if 0%{?_licensedir:1}
+%license LICENSE
+%else
+%doc LICENSE
+%endif
+# GPL+ or Artistic
+%doc ChangeLog Changes README examples/
+%{perl_vendorlib}/Error.pm
+%{_mandir}/man3/Error.3*
+# MIT
+%{perl_vendorlib}/Error/
+%{_mandir}/man3/Error::Simple.3*
+
+%changelog
+* Wed May 18 2022 Chunmei Xu <xuchunmei@linux.alibaba.com> - 1:0.17029-1
+- init from upstream