diff --git a/String-Interpolate-Named-1.01.tar.gz b/String-Interpolate-Named-1.01.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..59aa5436e44e0622c75eb4aec5072b2a172f58b0
Binary files /dev/null and b/String-Interpolate-Named-1.01.tar.gz differ
diff --git a/perl-String-Interpolate-Named.spec b/perl-String-Interpolate-Named.spec
new file mode 100644
index 0000000000000000000000000000000000000000..91b840ebb81f21f50fb45cecbf49929963b1aec9
--- /dev/null
+++ b/perl-String-Interpolate-Named.spec
@@ -0,0 +1,59 @@
+Name:          perl-String-Interpolate-Named
+Summary:       Interpolated named arguments in string
+License:       GPL-1.0-or-later or Artistic
+Version:       1.01
+Release:       1
+Source0:       https://cpan.metacpan.org/authors/id/J/JV/JV/String-Interpolate-Named-1.01.tar.gz
+Url:           https://metacpan.org/release/String-Interpolate-Named
+
+BuildArch:     noarch
+
+Requires:      perl(:VERSION) >= 5.10.1 
+Requires:      perl(:MODULE_COMPAT)
+
+BuildRequires: make 
+BuildRequires: perl(Carp) 
+BuildRequires: perl(Exporter) 
+BuildRequires: perl(ExtUtils::MakeMaker) >= 6.76 
+BuildRequires: perl(Test::More) 
+BuildRequires: perl(parent) 
+BuildRequires: perl(strict) 
+BuildRequires: perl(utf8) 
+BuildRequires: perl(warnings) 
+BuildRequires: perl-generators 
+BuildRequires: perl-interpreter
+
+%description
+String::Interpolate::Named provides a single function, interpolate,
+that takes a string and substitutes named variables by target texts.
+
+%package help
+Summary:	Help documents for %{name}
+
+%description help
+This package contains all man files to use %{name}
+
+%prep
+%setup -q -n String-Interpolate-Named-1.01
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1
+%{make_build}
+
+%check
+make test VERBOSE=1
+
+%install
+%{make_install}
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%files
+%doc Changes README
+%{perl_vendorlib}/*
+
+%files help
+%{_mandir}/man3/*
+
+%changelog
+* Tue Jun 29 2021 Xu Jin <jinxu@kylinos.cn> - 1.01-1
+- Initial package for openEuler