diff --git a/DBI-1.641.tar.gz b/DBI-1.641.tar.gz
deleted file mode 100644
index ae6694be18303849cab50bd1ce4147dae5c0243f..0000000000000000000000000000000000000000
Binary files a/DBI-1.641.tar.gz and /dev/null differ
diff --git a/download b/download
new file mode 100644
index 0000000000000000000000000000000000000000..7fe0f126b39d7b4858b6242347693a39d24795e4
--- /dev/null
+++ b/download
@@ -0,0 +1 @@
+e77fd37fcf77fc88fde029c1b75ded54  DBI-1.641.tar.gz
diff --git a/perl-DBI.spec b/perl-DBI.spec
index 335b5c29b1f8dbc7022135a1b70142c096e50cfc..7b7d93d985277f5e366f63e621e87a5d06606395 100644
--- a/perl-DBI.spec
+++ b/perl-DBI.spec
@@ -34,7 +34,7 @@
 
 Name:           perl-DBI
 Version:        1.641
-Release:        3%{?dist}
+Release:        4%{?dist}
 Summary:        A database access API for perl
 License:        GPL+ or Artistic
 URL:            http://dbi.perl.org/
@@ -67,6 +67,7 @@ BuildRequires:  perl(DynaLoader)
 BuildRequires:  perl(Errno)
 BuildRequires:  perl(Exporter)
 BuildRequires:  perl(Fcntl)
+BuildRequires:  perl(FileHandle)
 BuildRequires:  perl(File::Basename)
 BuildRequires:  perl(File::Spec)
 BuildRequires:  perl(Getopt::Long)
@@ -99,6 +100,7 @@ BuildRequires:  perl(MLDBM)
 BuildRequires:  perl(SQL::Statement) >= 1.402
 %endif
 # Tests
+BuildRequires:  perl(blib)
 BuildRequires:  perl(B)
 BuildRequires:  perl(Benchmark)
 BuildRequires:  perl(Encode)
@@ -120,6 +122,7 @@ Suggests:       perl(Clone) >= 0.34
 %if %{with perl_DBI_enables_DB_File}
 Suggests:       perl(DB_File)
 %endif
+Requires:       perl(FileHandle)
 Requires:       perl(Math::BigInt)
 %if %{with perl_DBI_enables_MLDBM}
 Suggests:       perl(MLDBM)
@@ -214,6 +217,9 @@ make test
 %endif
 
 %changelog
+* Mon Nov 22 2021 Jitka Plesnikova <jplesnik@redhat.com> - 1.641-4
+- BR: perl(blib), perl(FileHandle) for tests
+
 * Fri Mar 29 2019 Jitka Plesnikova <jplesnik@redhat.com> - 1.641-3
 - Rebuild with enable hardening (bug #1636329)