diff --git a/packages/perl/build.sh b/packages/perl/build.sh
index 9f5402890..c01e9e71e 100644
--- a/packages/perl/build.sh
+++ b/packages/perl/build.sh
@@ -4,10 +4,10 @@ TERMUX_PKG_LICENSE="Artistic-License-2.0"
 # Packages which should be rebuilt after version change:
 # - exiftool
 # - irssi
-TERMUX_PKG_VERSION=(5.30.3
+# - psutils
+TERMUX_PKG_VERSION=(5.32.0
                     1.3.4)
-TERMUX_PKG_REVISION=1
-TERMUX_PKG_SHA256=(32e04c8bb7b1aecb2742a7f7ac0eabac100f38247352a73ad7fa104e39e7406f
+TERMUX_PKG_SHA256=(efeb1ce1f10824190ad1cadbcccf6fdb8a5d37007d0100d2d9ae5f2b5900c0b4
                    755aa0ca8141a942188a269564f86c3c82349f82c346ed5c992495d7f35138ba)
 TERMUX_PKG_SRCURL=(http://www.cpan.org/src/5.0/perl-${TERMUX_PKG_VERSION}.tar.gz
 		   https://github.com/arsv/perl-cross/releases/download/${TERMUX_PKG_VERSION[1]}/perl-cross-${TERMUX_PKG_VERSION[1]}.tar.gz)
diff --git a/packages/perl/perlio.c.patch b/packages/perl/perlio.c.patch
index 34cf9662e..014b9371f 100644
--- a/packages/perl/perlio.c.patch
+++ b/packages/perl/perlio.c.patch
@@ -1,20 +1,20 @@
-diff -uNr perl-5.30.1/perlio.c perl-5.30.1.mod/perlio.c
---- perl-5.30.1/perlio.c	2019-10-25 00:27:56.000000000 +0300
-+++ perl-5.30.1.mod/perlio.c	2020-01-04 01:38:31.311705529 +0200
-@@ -5059,14 +5059,14 @@
+--- ./perlio.c.orig	2020-07-04 10:20:36.137399430 +0200
++++ ./perlio.c	2020-07-04 10:22:54.546499389 +0200
+@@ -5065,7 +5065,7 @@
  	  f = PerlIO_fdopen(fd, "w+b");
- #elif ! defined(VMS) && ! defined(OS2)
+ #elif ! defined(OS2)
       int fd = -1;
 -     char tempname[] = "/tmp/PerlIO_XXXXXX";
 +     char tempname[] = "@TERMUX_PREFIX@/tmp/PerlIO_XXXXXX";
       const char * const tmpdir = TAINTING_get ? NULL : PerlEnv_getenv("TMPDIR");
       SV * sv = NULL;
       int old_umask = umask(0177);
+@@ -5073,7 +5073,7 @@
       if (tmpdir && *tmpdir) {
  	 /* if TMPDIR is set and not empty, we try that first */
  	 sv = newSVpv(tmpdir, 0);
 -	 sv_catpv(sv, tempname + 4);
 +	 sv_catpv(sv, tempname + sizeof("@TERMUX_PREFIX@/tmp") - 1);
- 	 fd = Perl_my_mkstemp_cloexec(SvPVX(sv));
+ 	 fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode | O_VMS_DELETEONCLOSE);
       }
       if (fd < 0) {