diff --git a/tests/Makefile.am b/tests/Makefile.am
index 99da99015..386178323 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -797,8 +797,8 @@ EXTRA_DIST += \
 	tsk/test-filesystem-walk.sh \
 	tsk/test-find-inode.sh
 
-TESTS += xfs/test-xfs-misc.pl
-EXTRA_DIST += xfs/test-xfs-misc.pl
+TESTS += xfs/test-xfs-misc.py
+EXTRA_DIST += xfs/test-xfs-misc.py
 
 # XXX Fix these tests.
 # if HAVE_LIBVIRT
diff --git a/tests/xfs/test-xfs-misc.pl b/tests/xfs/test-xfs-misc.pl
deleted file mode 100755
index f60d6f772..000000000
--- a/tests/xfs/test-xfs-misc.pl
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/env perl
-# libguestfs
-# Copyright (C) 2013 Red Hat Inc.
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
-# Miscellaneous xfs features.
-
-use strict;
-use warnings;
-
-use Sys::Guestfs;
-
-exit 77 if $ENV{SKIP_TEST_XFS_MISC_PL};
-
-my $g = Sys::Guestfs->new ();
-
-$g->add_drive_scratch (1024*1024*1024);
-$g->launch ();
-
-# If xfs is not available, bail.
-unless ($g->feature_available (["xfs"])) {
-    warn "$0: skipping test because xfs is not available\n";
-    exit 77;
-}
-
-$g->part_disk ("/dev/sda", "mbr");
-
-$g->mkfs ("xfs", "/dev/sda1");
-
-# Setting label.
-$g->set_label ("/dev/sda1", "newlabel");
-my $label = $g->vfs_label ("/dev/sda1");
-die "unexpected label: expecting 'newlabel' but got '$label'"
-    unless $label eq "newlabel";
-
-# Setting UUID.
-my $newuuid = "01234567-0123-0123-0123-0123456789ab";
-$g->set_uuid ("/dev/sda1", $newuuid);
-my $uuid = $g->vfs_uuid ("/dev/sda1");
-die "unexpected UUID: expecting '$newuuid' but got '$uuid'"
-    unless $uuid eq $newuuid;
-
-$g->shutdown ();
-$g->close ();
diff --git a/tests/xfs/test-xfs-misc.py b/tests/xfs/test-xfs-misc.py
new file mode 100755
index 000000000..7309a0c8d
--- /dev/null
+++ b/tests/xfs/test-xfs-misc.py
@@ -0,0 +1,54 @@
+#!/usr/bin/env python3
+# libguestfs
+# Copyright (C) 2025 Red Hat Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+# Miscellaneous xfs features.
+
+import sys
+import os
+import guestfs
+
+if 'SKIP_TEST_XFS_MISC_PY' in os.environ:
+    sys.exit(77)
+
+g = guestfs.GuestFS()
+g.add_drive_scratch(1024 * 1024 * 1024)
+g.launch()
+
+# If xfs is not available, bail.
+if not g.feature_available(["xfs"]):
+    print("{}: skipping test because xfs is not available".format(sys.argv[0]), file=sys.stderr)
+    sys.exit(77)
+
+g.part_disk("/dev/sda", "mbr")
+g.mkfs("xfs", "/dev/sda1")
+
+# Setting label.
+g.set_label("/dev/sda1", "newlabel")
+label = g.vfs_label("/dev/sda1")
+if label != "newlabel":
+    raise Exception("unexpected label: expecting 'newlabel' but got '{}'".format(label))
+
+# Setting UUID.
+newuuid = "01234567-0123-0123-0123-0123456789ab"
+g.set_uuid("/dev/sda1", newuuid)
+uuid = g.vfs_uuid("/dev/sda1")
+if uuid != newuuid:
+    raise Exception("unexpected UUID: expecting '{}' but got '{}'".format(newuuid, uuid))
+
+g.shutdown()
+g.close()