diff --git a/Clone-0.46.tar.gz b/Clone-0.46.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..6ecca101e6cbcfc816f1eb2f5febe35c3084a6a9
Binary files /dev/null and b/Clone-0.46.tar.gz differ
diff --git a/perl-Clone.spec b/perl-Clone.spec
new file mode 100644
index 0000000000000000000000000000000000000000..18537b2ef093c4b027c47820d8353c29dc86925d
--- /dev/null
+++ b/perl-Clone.spec
@@ -0,0 +1,79 @@
+%define anolis_release 1
+# Perform optional tests
+%bcond_with perl_Clone_enables_optional_test
+
+Name:           perl-Clone
+Version:        0.46
+Release:        %{anolis_release}%{?dist}
+Summary:        Recursively copy perl data types
+License:        GPL-1.0-or-later OR Artistic-1.0-Perl
+URL:            https://metacpan.org/release/Clone
+Source0:        https://cpan.metacpan.org/modules/by-module/Clone/Clone-%{version}.tar.gz
+# Build
+BuildRequires:  coreutils
+BuildRequires:  findutils
+BuildRequires:  gcc
+BuildRequires:  make
+BuildRequires:  perl-devel
+BuildRequires:  perl-generators
+BuildRequires:  perl-interpreter
+BuildRequires:  perl(ExtUtils::MakeMaker)
+BuildRequires:  perl(warnings)
+# Run-time:
+BuildRequires:  perl(AutoLoader)
+BuildRequires:  perl(Exporter)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(XSLoader)
+# Tests:
+BuildRequires:  perl(B)
+BuildRequires:  perl(B::COW) >= 0.004
+BuildRequires:  perl(Test::More) >= 0.88
+BuildRequires:  perl(utf8)
+BuildRequires:  perl(vars)
+%if %{with perl_Clone_enables_optional_test}
+# Optional tests:
+BuildRequires:  perl(Data::Dumper)
+BuildRequires:  perl(Devel::Peek)
+BuildRequires:  perl(Hash::Util::FieldHash)
+BuildRequires:  perl(Scalar::Util)
+BuildRequires:  perl(Storable)
+BuildRequires:  perl(Taint::Runtime)
+%endif
+# Dependencies
+
+%{?perl_default_filter}
+
+%description
+This module provides a clone() method that makes recursive
+copies of nested hash, array, scalar and reference types,
+including tied variables and objects.
+
+clone() takes a scalar argument and an optional parameter that
+can be used to limit the depth of the copy. To duplicate lists,
+arrays or hashes, pass them in by reference.
+
+%prep
+%setup -q -n Clone-%{version}
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=%{buildroot}
+find %{buildroot} -type f -name .packlist -delete
+find %{buildroot} -type f -name '*.bs' -empty -delete
+%{_fixperms} -c %{buildroot}
+
+%check
+make test
+
+%files
+%doc Changes README.md
+%{perl_vendorarch}/auto/Clone/
+%{perl_vendorarch}/Clone.pm
+%{_mandir}/man3/Clone.3*
+
+%changelog
+* Thu Feb 02 2023 Chunmei Xu <xuchunmei@linux.alibaba.com> - 0.46-1
+- init from upstream