diff --git a/Tree-DAG_Node-1.32.tgz b/Tree-DAG_Node-1.32.tgz
new file mode 100644
index 0000000000000000000000000000000000000000..56f9a69d6ddf97910786dffa29eb69bc7b491f47
Binary files /dev/null and b/Tree-DAG_Node-1.32.tgz differ
diff --git a/perl-Tree-DAG_Node.spec b/perl-Tree-DAG_Node.spec
new file mode 100644
index 0000000000000000000000000000000000000000..f662ac1d45939a6dca04b5c18cd87823edc9cad4
--- /dev/null
+++ b/perl-Tree-DAG_Node.spec
@@ -0,0 +1,94 @@
+%global _empty_manifest_terminate_build 0
+Name:           perl-Tree-DAG_Node
+Version:        1.32
+Release:        1
+Summary:        N-ary tree
+License:        GPL+ or Artistic
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/Tree-DAG_Node/
+Source0:        http://www.cpan.org/authors/id/R/RS/RSAVAGE/Tree-DAG_Node-%{version}.tgz
+BuildArch:      noarch
+BuildRequires:  perl-generators
+BuildRequires:  perl(ExtUtils::MakeMaker)
+BuildRequires:  perl(File::Slurp::Tiny) >= 0.003
+BuildRequires:  perl(File::Spec) >= 3.4
+BuildRequires:  perl(File::Temp) >= 0.19
+BuildRequires:  perl(open)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(Test::More) >= 1.001002
+BuildRequires:  perl(utf8)
+BuildRequires:  perl(warnings)
+Requires:       perl(File::Slurp::Tiny) >= 0.003
+Requires:       perl(open)
+Requires:       perl(strict)
+Requires:       perl(utf8)
+Requires:       perl(warnings)
+%description
+This class encapsulates/makes/manipulates objects that represent nodes in a
+tree structure. The tree structure is not an object itself, but is emergent
+from the linkages you create between nodes. This class provides the methods
+for making linkages that can be used to build up a tree, while preventing
+you from ever making any kinds of linkages which are not allowed in a tree
+(such as having a node be its own mother or ancestor, or having a node have
+two mothers).
+%package help
+Summary : N-ary tree
+Provides: perl-Tree-DAG_Node-doc
+%description help
+This class encapsulates/makes/manipulates objects that represent nodes in a
+tree structure. The tree structure is not an object itself, but is emergent
+from the linkages you create between nodes. This class provides the methods
+for making linkages that can be used to build up a tree, while preventing
+you from ever making any kinds of linkages which are not allowed in a tree
+(such as having a node be its own mother or ancestor, or having a node have
+two mothers).
+%prep
+%setup -q -n Tree-DAG_Node-%{version}
+%build
+export PERL_MM_OPT=""
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+export PERL_MM_OPT=""
+rm -rf $RPM_BUILD_ROOT
+
+make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
+
+find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
+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 || :
+make test
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+%files -f filelist.lst
+%defattr(-,root,root,-)
+%doc Changelog.ini Changes LICENSE META.json README
+%{perl_vendorlib}/*
+%files help
+%{_mandir}/*
+
+%changelog
+* Sun May 23 2021 Perl_Bot <Perl_Bot@openeuler.org> 1.32-1
+- Specfile autogenerated by Perl_Bot