diff --git a/Data-Peek-0.51.tgz b/Data-Peek-0.51.tgz
new file mode 100644
index 0000000000000000000000000000000000000000..f14bd219cc25bddde57b9f2835f9e6adf02dad55
Binary files /dev/null and b/Data-Peek-0.51.tgz differ
diff --git a/perl-Data-Peek.spec b/perl-Data-Peek.spec
new file mode 100644
index 0000000000000000000000000000000000000000..bf97f23fd76ed67506fda6e5e2ded671bb21a797
--- /dev/null
+++ b/perl-Data-Peek.spec
@@ -0,0 +1,73 @@
+%define anolis_release 1
+# Run optional test
+%{bcond_without perl_Data_Peek_enables_option_test}
+
+Name:           perl-Data-Peek
+Version:        0.51
+Release:        %{anolis_release}%{?dist}
+Summary:        Collection of low-level debug facilities
+License:        GPL+ or Artistic
+URL:            https://metacpan.org/release/Data-Peek
+Source0:        https://cpan.metacpan.org/authors/id/H/HM/HMBRAND/Data-Peek-%{version}.tgz
+BuildRequires:  coreutils
+BuildRequires:  findutils
+BuildRequires:  gcc
+BuildRequires:  make
+BuildRequires:  perl-devel
+BuildRequires:  perl-generators
+BuildRequires:  perl-interpreter
+BuildRequires:  perl(:VERSION) >= 5.8
+BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76
+BuildRequires:  perl(strict)
+# Run-time:
+BuildRequires:  perl(bytes)
+BuildRequires:  perl(Config)
+BuildRequires:  perl(Data::Dumper)
+BuildRequires:  perl(XSLoader)
+BuildRequires:  perl(vars)
+BuildRequires:  perl(warnings)
+# Tests:
+BuildRequires:  perl(Test::More) >= 0.90
+BuildRequires:  perl(Test::Warnings)
+%if %{with perl_Data_Peek_enables_option_test}
+# Optional tests:
+BuildRequires:  perl(Perl::Tidy) >= 20120714
+BuildRequires:  perl(Test::Pod) >= 1.00
+BuildRequires:  perl(Test::Pod::Coverage)
+%endif
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+
+%{?perl_default_filter}
+
+%description
+Data::Peek started off as DDumper being a wrapper module over Data::Dumper,
+but grew out to be a set of low-level data introspection utilities that no
+other module provided yet, using the lowest level of the perl internals API
+as possible.
+
+%prep
+%setup -q -n Data-Peek-%{version}
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1 OPTIMIZE="$RPM_OPT_FLAGS"
+%{make_build}
+
+%install
+%{make_install}
+find $RPM_BUILD_ROOT -type f -name '*.bs' -size 0 -delete
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+make test
+
+%files
+%doc ChangeLog README CONTRIBUTING.md
+%{perl_vendorarch}/auto/*
+%{perl_vendorarch}/Data*
+%{perl_vendorarch}/DP.pm
+%{_mandir}/man3/*
+
+%changelog
+* Fri May 06 2022 mgb01105731 <mgb01105731@alibaba-inc.com> - 0.51-1
+- Init from upstream version 0.51
+