diff --git a/perl-LWP-MediaTypes.spec b/perl-LWP-MediaTypes.spec
index d432365..3528a81 100644
--- a/perl-LWP-MediaTypes.spec
+++ b/perl-LWP-MediaTypes.spec
@@ -1,10 +1,11 @@
-Name:           perl-LWP-MediaTypes
+%define mod_name LWP-MediaTypes
+Name:           perl-%{mod_name}
 Version:        6.04
-Release:        3
+Release:        4
 Summary:        Guess media type for a file or a URL
 License:        (GPL+ or Artistic) and Public Domain
-URL:            https://metacpan.org/release/LWP-MediaTypes
-Source0:        https://cpan.metacpan.org/authors/id/O/OA/OALDERS/LWP-MediaTypes-%{version}.tar.gz
+URL:            https://metacpan.org/release/%{mod_name}
+Source0:        https://cpan.metacpan.org/authors/id/O/OA/OALDERS/%{mod_name}-%{version}.tar.gz
 BuildArch:      noarch
 BuildRequires:  make perl-generators perl-interpreter perl(ExtUtils::MakeMaker) perl(strict) perl(warnings) sed perl(Carp)  perl(Exporter) perl(File::Basename) perl(Scalar::Util) perl(File::Spec) perl(overload) perl(Test::Fatal) perl(Test::More)
 Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version)) perl(File::Basename) mailcap
@@ -19,13 +20,13 @@ used instead. For backwards compatibility we will also look for
 ~/.mime.types.
 
 %package help
-Summary:        Documentation for perl-LWP-MediaTypes
+Summary:        Documentation for perl-%{mod_name}
 
 %description help
-Documentation for perl-LWP-MediaTypes.
+Documentation for perl-%{mod_name}.
 
 %prep
-%autosetup -n LWP-MediaTypes-%{version} -p1
+%autosetup -n %{mod_name}-%{version} -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1
@@ -48,6 +49,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Mon Oct 24 2022 yangmingtai <yangmingtai@huawei.com> - 6.04-4
+- define mod_name to opitomize the specfile
+
 * Wed Apr 27 2022 renhongxun <renhongxun@h-partners.com> - 6.04-3
 - rebuild perl-LWP-MediaTypes