diff --git a/Tie-Cycle-1.225.tar.gz b/Tie-Cycle-1.225.tar.gz
new file mode 100644
index 0000000..da5840e
Binary files /dev/null and b/Tie-Cycle-1.225.tar.gz differ
diff --git a/perl-Tie-Cycle.spec b/perl-Tie-Cycle.spec
new file mode 100644
index 0000000..1193af9
--- /dev/null
+++ b/perl-Tie-Cycle.spec
@@ -0,0 +1,49 @@
+Name:           perl-Tie-Cycle
+Version:        1.225
+Release:        6%{?dist}
+Summary:        Cycle through a list of values via a scalar
+License:        Artistic 2.0
+URL:            https://metacpan.org/release/Tie-Cycle
+Source0:        https://cpan.metacpan.org/authors/id/B/BD/BDFOY/Tie-Cycle-%{version}.tar.gz
+BuildArch:      noarch
+BuildRequires:  perl-interpreter
+BuildRequires:  perl-generators
+BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76
+BuildRequires:  perl(File::Spec)
+BuildRequires:  perl(Carp)
+BuildRequires:  perl(constant)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(Test::More) >= 0.95
+BuildRequires:  perl(Test::Pod) >= 1.00
+BuildRequires:  perl(Test::Pod::Coverage)
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+
+%description
+This Perl module can be used to go through a list over and over again.
+Once you get to the end of the list, you go back to the beginning.  You
+do not have to worry about any of this since the magic of tie does that
+for you.
+
+%prep
+%setup -q -n Tie-Cycle-%{version}
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
+make %{?_smp_mflags}
+
+%install
+make pure_install DESTDIR=%{buildroot}
+%{_fixperms} %{buildroot}/*
+
+%check
+make test
+
+%files
+%license LICENSE
+%doc Changes README.pod CONTRIBUTING.md
+%{perl_vendorlib}/*
+%{_mandir}/man3/*
+
+%changelog
+* Fri Jun 25 2021 shikeqiang <shikeqiang@kylinoc.cn>
+- Init Project.