diff --git a/Net-BGP-0.17.tar.gz b/Net-BGP-0.17.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..821a1377ef1817699dc4e231abbc8c8d48601e7b
Binary files /dev/null and b/Net-BGP-0.17.tar.gz differ
diff --git a/perl-Net-BGP.spec b/perl-Net-BGP.spec
new file mode 100644
index 0000000000000000000000000000000000000000..cf7449261247f91f81303bda83569e099fee1dcd
--- /dev/null
+++ b/perl-Net-BGP.spec
@@ -0,0 +1,90 @@
+%global _empty_manifest_terminate_build 0
+Name:           perl-Net-BGP
+Version:        0.17
+Release:        1
+Summary:        Border Gateway Protocol version 4 speaker/listener library
+License:        GPL+ or Artistic
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/Net-BGP/
+Source0:        http://www.cpan.org/authors/id/S/SS/SSCHECK/Net-BGP-%{version}.tar.gz
+BuildArch:      noarch
+BuildRequires:  perl-generators
+BuildRequires:  perl(ExtUtils::MakeMaker)
+BuildRequires:  perl(List::Util) >= 1.01
+BuildRequires:  perl(Test::Harness) >= 2.00
+BuildRequires:  perl(Test::More) >= 0.47
+Requires:       perl(List::Util) >= 1.01
+Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+%description
+This module is an implementation of the BGP-4 inter-domain routing
+protocol. It encapsulates all of the functionality needed to establish and
+maintain a BGP peering session and exchange routing update information with
+the peer. It aims to provide a simple API to the BGP protocol for the
+purposes of automation, logging, monitoring, testing, and similar tasks
+using the power and flexibility of perl. The module does not implement the
+functionality of a RIB (Routing Information Base) nor does it modify the
+kernel routing table of the host system. However, such operations could be
+implemented using the API provided by the module.
+%package help
+Summary : Border Gateway Protocol version 4 speaker/listener library
+Provides: perl-Net-BGP-doc
+%description help
+This module is an implementation of the BGP-4 inter-domain routing
+protocol. It encapsulates all of the functionality needed to establish and
+maintain a BGP peering session and exchange routing update information with
+the peer. It aims to provide a simple API to the BGP protocol for the
+purposes of automation, logging, monitoring, testing, and similar tasks
+using the power and flexibility of perl. The module does not implement the
+functionality of a RIB (Routing Information Base) nor does it modify the
+kernel routing table of the host system. However, such operations could be
+implemented using the API provided by the module.
+%prep
+%setup -q -n Net-BGP-%{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 Changes META.json README
+%{perl_vendorlib}/*
+%files help
+%{_mandir}/*
+
+%changelog
+* Tue Jul 13 2021 Perl_Bot <Perl_Bot@openeuler.org> 0.17-1
+- Specfile autogenerated by Perl_Bot