diff --git a/Struct-Dumb-0.09.tar.gz b/Struct-Dumb-0.09.tar.gz
new file mode 100644
index 0000000..23bff9d
Binary files /dev/null and b/Struct-Dumb-0.09.tar.gz differ
diff --git a/perl-Struct-Dumb.spec b/perl-Struct-Dumb.spec
new file mode 100644
index 0000000..6ace86c
--- /dev/null
+++ b/perl-Struct-Dumb.spec
@@ -0,0 +1,42 @@
+Name:                perl-Struct-Dumb
+Version:             0.09
+Release:             1
+Summary:             Make simple lightweight record-like structures
+License:             GPL+ or Artistic
+URL:                 https://metacpan.org/release/Struct-Dumb
+Source0:             https://cpan.metacpan.org/authors/id/P/PE/PEVANS/Struct-Dumb-%{version}.tar.gz
+BuildArch:           noarch
+BuildRequires:       perl-interpreter perl-generators perl(Carp) perl(Module::Build) perl(strict)
+BuildRequires:       perl(Test::Fatal) perl(Test::More) perl(Test::Pod) perl(warnings)
+Requires:            perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+%{?perl_default_filter}
+%description
+Struct::Dumb creates record-like structure types, similar to the struct
+keyword in C, C++ or C#, or Record in Pascal. An invocation of this module
+will create a construction function which returns new object references
+with the given field values. These references all respond to lvalue methods
+that access or modify the values stored.
+
+%prep
+%setup -q -n Struct-Dumb-%{version}
+
+%build
+%{__perl} Build.PL installdirs=vendor
+./Build
+
+%install
+./Build install destdir=$RPM_BUILD_ROOT create_packlist=0
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+./Build test
+
+%files
+%doc Changes README
+%license LICENSE
+%{perl_vendorlib}/Struct
+%{_mandir}/man3/Struct*
+
+%changelog
+* Fri May 14 2021 zhangtao <zhangtao307@huawei.com> - 0.09-1
+- package init