diff --git a/Getopt-Lucid-1.10.tar.gz b/Getopt-Lucid-1.10.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..9e8512aa1795f063c2fdfaa156b606a9a48983a6
Binary files /dev/null and b/Getopt-Lucid-1.10.tar.gz differ
diff --git a/perl-Getopt-Lucid.spec b/perl-Getopt-Lucid.spec
new file mode 100644
index 0000000000000000000000000000000000000000..79677abd3b28ca094fd8d41b1351713626e305e5
--- /dev/null
+++ b/perl-Getopt-Lucid.spec
@@ -0,0 +1,108 @@
+%global _empty_manifest_terminate_build 0
+
+Name:           perl-Getopt-Lucid
+Version:        1.10
+Release:        1
+Summary:        Clear, readable syntax for command line processing
+License:        Apache-2.0
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/Getopt-Lucid/
+Source0:        http://www.cpan.org/authors/id/D/DA/DAGOLDEN/Getopt-Lucid-%{version}.tar.gz
+
+BuildArch:      noarch
+
+BuildRequires:  perl >= 0:5.008001
+BuildRequires:  perl-generators
+BuildRequires:  perl(Carp)
+BuildRequires:  perl(Data::Dumper)
+BuildRequires:  perl(Exception::Class) >= 1.23
+BuildRequires:  perl(Exception::Class::TryCatch) >= 1.10
+BuildRequires:  perl(Exporter)
+BuildRequires:  perl(ExtUtils::MakeMaker)
+BuildRequires:  perl(File::Spec)
+BuildRequires:  perl(List::Util)
+BuildRequires:  perl(Storable) >= 2.16
+BuildRequires:  perl(strict)
+BuildRequires:  perl(Test::More) >= 0.62
+BuildRequires:  perl(warnings)
+
+Requires:       perl(Carp)
+Requires:       perl(Exception::Class) >= 1.23
+Requires:       perl(Exporter)
+Requires:       perl(List::Util)
+Requires:       perl(Storable) >= 2.16
+Requires:       perl(strict)
+Requires:       perl(warnings)
+Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+
+%description
+The goal of this module is providing good code readability and clarity of
+intent for command-line option processing. While readability is a
+subjective standard, Getopt::Lucid relies on a more verbose, plain-English
+option specification as compared against the more symbolic approach of
+Getopt::Long. Key features include:
+
+%package help
+Summary : Clear, readable syntax for command line processing
+Provides: perl-Getopt-Lucid-doc
+
+%description help
+The goal of this module is providing good code readability and clarity of
+intent for command-line option processing. While readability is a
+subjective standard, Getopt::Lucid relies on a more verbose, plain-English
+option specification as compared against the more symbolic approach of
+Getopt::Long. Key features include:
+
+%prep
+%setup -q -n Getopt-Lucid-%{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 CONTRIBUTING.mkdn cpanfile dist.ini LICENSE META.json perlcritic.rc README Todo
+%{perl_vendorlib}/*
+
+%files help
+%{_mandir}/*
+
+%changelog
+* Sun Jul 31 2022 wangshuo <wangshuo@kylinos.cn> 1.10-1
+- Specfile autogenerated by Perl_Bot