diff --git a/Spreadsheet-WriteExcel-2.40-utf8.patch b/Spreadsheet-WriteExcel-2.40-utf8.patch
new file mode 100644
index 0000000..36f0757
--- /dev/null
+++ b/Spreadsheet-WriteExcel-2.40-utf8.patch
@@ -0,0 +1,11 @@
+--- Changes
++++ Changes
+@@ -654,7 +654,7 @@ Revision history for Perl module Spreads
+     ! Changed handling of undefs in write() method. Thanks Hanc Pavel.
+ 
+     ! Changed new() to return undef for file creation errors
+-      Thanks Felipe Pérez Galiana.
++      Thanks Felipe PĂ©rez Galiana.
+ 
+     ! Added check for header/footer length. Thanks Peter Dintelmann.
+ 
diff --git a/Spreadsheet-WriteExcel-2.40.tar.gz b/Spreadsheet-WriteExcel-2.40.tar.gz
new file mode 100644
index 0000000..8bf7351
Binary files /dev/null and b/Spreadsheet-WriteExcel-2.40.tar.gz differ
diff --git a/perl-Spreadsheet-WriteExcel.spec b/perl-Spreadsheet-WriteExcel.spec
new file mode 100644
index 0000000..97299dc
--- /dev/null
+++ b/perl-Spreadsheet-WriteExcel.spec
@@ -0,0 +1,117 @@
+Name:           perl-Spreadsheet-WriteExcel
+Version:        2.40
+Release:        1
+Summary:        Write formatted text and numbers to a cross-platform Excel binary file
+License:        GPL+ or Artistic
+URL:            https://metacpan.org/release/Spreadsheet-WriteExcel
+Source0:        https://cpan.metacpan.org/modules/by-module/Spreadsheet/Spreadsheet-WriteExcel-%{version}.tar.gz
+Patch0:         Spreadsheet-WriteExcel-2.40-utf8.patch
+BuildArch:      noarch
+# Build
+BuildRequires:  coreutils
+BuildRequires:  findutils
+BuildRequires:  make
+BuildRequires:  perl-generators
+BuildRequires:  perl-interpreter
+BuildRequires:  perl(ExtUtils::MakeMaker)
+# Runtime
+BuildRequires:  perl(autouse)
+BuildRequires:  perl(Carp)
+BuildRequires:  perl(Date::Calc)
+BuildRequires:  perl(Date::Manip)
+BuildRequires:  perl-Digest-MD4
+BuildRequires:  perl(Encode)
+BuildRequires:  perl(Exporter)
+BuildRequires:  perl(File::Temp)
+BuildRequires:  perl(FileHandle)
+BuildRequires:  perl(Getopt::Long)
+BuildRequires:  perl(integer)
+BuildRequires:  perl(OLE::Storage_Lite) >= 0.19
+BuildRequires:  perl(Parse::RecDescent)
+BuildRequires:  perl(Pod::Usage)
+BuildRequires:  perl(POSIX)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(Time::Local)
+BuildRequires:  perl(vars)
+# Test Suite
+BuildRequires:  perl(Test::More)
+# Dependencies
+Requires:        perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires:        perl(Date::Calc)
+Requires:        perl(Date::Manip)
+Requires:        perl(Digest::MD4)
+Requires:        perl(Encode)
+Requires:        perl(File::Temp)
+Requires:        perl(OLE::Storage_Lite) >= 0.19
+Requires:        perl(Parse::RecDescent)
+
+%{?perl_default_filter:
+%filter_requires_in %{perl_vendorlib}/Spreadsheet/WriteExcel/Examples.pm
+%perl_default_filter
+}
+%global __requires_exclude_from %{?__requires_exclude_from:%__requires_exclude_from|}Spreadsheet/WriteExcel/Examples\\.pm$
+
+%description
+The Spreadsheet::WriteExcel module can be used to create a cross-
+platform Excel binary file. Multiple worksheets can be added to a
+workbook and formatting can be applied to cells. Text, numbers,
+formulas, hyperlinks and images can be written to the cells.
+
+The Excel file produced by this module is compatible with 97,
+2000, 2002 and 2003. Generated files are also compatible with the
+spreadsheet applications Gnumeric and OpenOffice.org.
+
+This module cannot be used to read an Excel file. See
+Spreadsheet::ParseExcel or look at the main documentation for some
+suggestions. This module cannot be used to write to an existing
+Excel file.
+
+%prep
+%setup -q -n Spreadsheet-WriteExcel-%{version} 
+
+# Fix encoding of Changes file
+%patch0
+# Fix line endings
+perl -pi -e 's/\r\n/\n/g' examples/*.txt
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=%{buildroot}
+find %{buildroot} -type f -name .packlist -delete
+%{_fixperms} -c %{buildroot}
+
+%check
+make test
+
+%files
+%doc Changes README docs/ examples/
+%{_bindir}/chartex
+%{perl_vendorlib}/Spreadsheet/
+%{_mandir}/man1/chartex.1*
+%{_mandir}/man3/Spreadsheet::WriteExcel.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::BIFFwriter.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Big.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Chart.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Chart::Area.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Chart::Bar.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Chart::Column.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Chart::External.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Chart::Line.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Chart::Pie.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Chart::Scatter.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Chart::Stock.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Examples.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Format.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Formula.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::OLEwriter.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Properties.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Utility.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Workbook.3*
+%{_mandir}/man3/Spreadsheet::WriteExcel::Worksheet.3*
+
+%changelog
+* Wed Jul 06 2022 misaka00251 <misaka00251@misakanet.cn> - 2.40-1
+- Init package (Thanks to fedora team)