diff --git a/Switch-2.17.tar.gz b/Switch-2.17.tar.gz
new file mode 100644
index 0000000..f9c1460
Binary files /dev/null and b/Switch-2.17.tar.gz differ
diff --git a/perl-Switch.spec b/perl-Switch.spec
new file mode 100644
index 0000000..50b30be
--- /dev/null
+++ b/perl-Switch.spec
@@ -0,0 +1,49 @@
+Name:           perl-Switch
+Version:        2.17
+Release:        13
+Summary:        A switch statement for Perl
+License:        GPL
+URL:            https://metacpan.org/release/Switch
+Source0:        https://cpan.metacpan.org/authors/id/C/CH/CHORNY/Switch-2.17.tar.gz
+BuildRequires:  make
+BuildArch:      noarch
+
+%description
+Switch.pm provides the syntax and semantics for an explicit case mechanism for Perl.
+The syntax is minimal, introducing only the keywords C<switch> and C<case> and conforming
+to the general pattern of existing Perl control structures. The semantics are particularly
+rich, allowing any one (or more) of nearly 30 forms of matching to be used when comparing
+a switch value with its various cases.
+
+%package        help
+Summary:        Help document for perl-Switch
+
+%description    help
+Help document for perl-Switch.
+
+%prep
+%autosetup -n Switch-%{version} -p1
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+%make_build
+
+%install
+%make_install
+chmod -R u+w %{buildroot}/*
+
+%check
+make test
+
+%files
+%doc README Changes
+/usr/share/perl5/vendor_perl/Switch.pm
+%exclude /usr/lib64/perl5/vendor_perl/auto/Switch/.packlist
+%exclude /usr/lib64/perl5/perllocal.pod
+
+%files help
+/usr/share/man/man3/Switch.3pm.gz
+
+%changelog
+* Mon Jan 06 2020 shijian <shijian16@huawei.com> - 2.17-13
+- Package init