diff --git a/Variable-Magic-0.62.tar.gz b/Variable-Magic-0.62.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..3f55d843f4fa7d67db2267a1750ef213a2150505
Binary files /dev/null and b/Variable-Magic-0.62.tar.gz differ
diff --git a/perl-Variable-Magic.spec b/perl-Variable-Magic.spec
new file mode 100644
index 0000000000000000000000000000000000000000..96755a5576b6c5a56be48f645b9903c9e2ecf3fa
--- /dev/null
+++ b/perl-Variable-Magic.spec
@@ -0,0 +1,96 @@
+%global _empty_manifest_terminate_build 0
+Name:           perl-Variable-Magic
+Version:        0.62
+Release:        1
+Summary:        Associate user-defined magic to variables from Perl
+License:        GPL+ or Artistic
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/Variable-Magic/
+Source0:        http://www.cpan.org/authors/id/V/VP/VPIT/Variable-Magic-%{version}.tar.gz
+BuildRequires:  perl >= 0:5.008
+BuildRequires:  perl-generators
+BuildRequires:  perl(base)
+BuildRequires:  perl(Carp)
+BuildRequires:  perl(Config)
+BuildRequires:  perl(Exporter)
+BuildRequires:  perl(ExtUtils::MakeMaker)
+BuildRequires:  perl(IO::Handle)
+BuildRequires:  perl(IO::Select)
+BuildRequires:  perl(IPC::Open3)
+BuildRequires:  perl(lib)
+BuildRequires:  perl(POSIX)
+BuildRequires:  perl(Socket)
+BuildRequires:  perl(Test::More)
+BuildRequires:  perl(XSLoader)
+Requires:       perl(base)
+Requires:       perl(Carp)
+Requires:       perl(Exporter)
+Requires:       perl(XSLoader)
+%description
+Magic is Perl's way of enhancing variables. This mechanism lets the user
+add extra data to any variable and hook syntactical operations (such as
+access, assignment or destruction) that can be applied to it. With this
+module, you can add your own magic to any variable without having to write
+a single line of XS.
+%package help
+Summary : Associate user-defined magic to variables from Perl
+Provides: perl-Variable-Magic-doc
+%description help
+Magic is Perl's way of enhancing variables. This mechanism lets the user
+add extra data to any variable and hook syntactical operations (such as
+access, assignment or destruction) that can be applied to it. With this
+module, you can add your own magic to any variable without having to write
+a single line of XS.
+%prep
+%setup -q -n Variable-Magic-%{version}
+%build
+export PERL_MM_OPT=""
+%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS"
+%{__perl} -pi -e 's/^\tLD_RUN_PATH=[^\s]+\s*/\t/' Makefile
+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 -type f -name '*.bs' -size 0 -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 META.json README
+%{perl_vendorarch}/auto/*
+%{perl_vendorarch}/Variable*
+%files help
+%{_mandir}/*
+
+%changelog
+* Sun May 23 2021 Perl_Bot <Perl_Bot@openeuler.org> 0.62-1
+- Specfile autogenerated by Perl_Bot