diff --git a/String-Base-0.003.tar.gz b/String-Base-0.003.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..3a2d2648c89c066de74399cb12ff243ef1cc9ffd
Binary files /dev/null and b/String-Base-0.003.tar.gz differ
diff --git a/perl-String-Base.spec b/perl-String-Base.spec
new file mode 100644
index 0000000000000000000000000000000000000000..d2f347f38a46d9c0456fd14577aa9ff7d1ce88b4
--- /dev/null
+++ b/perl-String-Base.spec
@@ -0,0 +1,81 @@
+%global _empty_manifest_terminate_build 0
+Name:           perl-String-Base
+Version:        0.003
+Release:        1
+Summary:        string index offseting
+License:        GPL-1.0-only or Artistic-1.0-Perl
+Group:          Development/Libraries
+URL:            https://metacpan.org/dist/String-Base
+Source0:        https://www.cpan.org/modules/by-module/String/String-Base-%{version}.tar.gz
+BuildRequires:  perl-generators
+BuildRequires:  perl => 5.008001
+BuildRequires:  perl(Test::More)
+BuildRequires:  perl(Lexical::SealRequireHints)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(warnings)
+BuildRequires:  perl(ExtUtils::CBuilder)
+BuildRequires:  perl(XSLoader)
+BuildRequires:  perl(Test::More)
+BuildRequires:  perl(B::Hooks::OP::Check) 
+BuildRequires:  perl(Module::Build)
+Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+
+%description
+This module implements automatic offsetting of string indices. In normal Perl, the first character of a string has index 0, the second character has index 1, and so on. This module allows string indexes to start at some other value. Most commonly it is used to give the first character of a string the index 1 (and the second 2, and so on), to imitate the indexing behaviour of FORTRAN and many other languages. It is usually considered poor style to do this.
+
+%package help
+Summary : string index offseting
+Provides: perl-String-Base
+
+%description help
+This module implements automatic offsetting of string indices. In normal Perl, the first character of a string has index 0, the second character has index 1, and so on. This module allows string indexes to start at some other value. Most commonly it is used to give the first character of a string the index 1 (and the second 2, and so on), to imitate the indexing behaviour of FORTRAN and many other languages. It is usually considered poor style to do this.
+
+%prep
+%setup -q -n String-Base-%{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 README
+%{perl_vendorarch}/*
+%files help
+%{_mandir}/*
+
+%changelog
+* Thu Feb 29 2024 woody2918 <wudi1@uniontech.com> - 0.003-1
+- Package init