diff --git a/Test-Identity-0.01.tar.gz b/Test-Identity-0.01.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..0f7a589386ca16eb8ae7e98ee1157b8c2450b404
Binary files /dev/null and b/Test-Identity-0.01.tar.gz differ
diff --git a/perl-Test-Identity.spec b/perl-Test-Identity.spec
new file mode 100644
index 0000000000000000000000000000000000000000..2cab77c62fa48d2ffe25b61816b997288c3c45d6
--- /dev/null
+++ b/perl-Test-Identity.spec
@@ -0,0 +1,80 @@
+%global _empty_manifest_terminate_build 0
+Name:           perl-Test-Identity
+Version:        0.01
+Release:        1
+Summary:        Assert the referential identity of a reference
+License:        GPL+ or Artistic
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/Test-Identity/
+Source0:        http://www.cpan.org/authors/id/P/PE/PEVANS/Test-Identity-%{version}.tar.gz
+BuildArch:      noarch
+BuildRequires:  perl-generators
+BuildRequires:  perl(Module::Build)
+BuildRequires:  perl(Scalar::Util)
+BuildRequires:  perl(Test::Builder::Tester)
+BuildRequires:  perl(Test::More)
+Requires:       perl(Scalar::Util)
+Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+%description
+This module provides a single testing function, identical. It asserts that
+a given reference is as expected; that is, it either refers to the same
+object or is undef. It is similar to Test::More::is except that it uses
+refaddr, ensuring that it behaves correctly even if the references under
+test are objects that overload stringification or numification.
+%package help
+Summary : Assert the referential identity of a reference
+Provides: perl-Test-Identity-doc
+%description help
+This module provides a single testing function, identical. It asserts that
+a given reference is as expected; that is, it either refers to the same
+object or is undef. It is similar to Test::More::is except that it uses
+refaddr, ensuring that it behaves correctly even if the references under
+test are objects that overload stringification or numification.
+%prep
+%setup -q -n Test-Identity-%{version}
+%build
+export PERL_MM_OPT=""
+%{__perl} Build.PL --installdirs=vendor
+./Build
+
+%install
+export PERL_MM_OPT=""
+rm -rf $RPM_BUILD_ROOT
+
+./Build install --destdir=$RPM_BUILD_ROOT --create_packlist=0
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
+
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+pushd %{buildroot}
+touch filelist.lst
+if [ -d usr/bin ];then
+    find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
+fi
+if [ -d usr/sbin ];then
+    find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
+fi
+if [ -d usr/lib64 ];then
+    find usr/lib64 -type f -printf "/%h/%f\n" >> filelist.lst
+fi
+if [ -d usr/lib ];then
+    find usr/lib -type f -printf "/%h/%f\n" >> filelist.lst
+fi
+popd
+mv %{buildroot}/filelist.lst .
+%check
+./Build test
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+%files -f filelist.lst
+%defattr(-,root,root,-)
+%doc Changes LICENSE README
+%{perl_vendorlib}/*
+%files help
+%{_mandir}/*
+
+%changelog
+* Tue Jul 13 2021 Perl_Bot <Perl_Bot@openeuler.org> 0.01-1
+- Specfile autogenerated by Perl_Bot