diff --git a/queries/perl/folds.scm b/queries/perl/folds.scm
new file mode 100644
index 000000000..994d569bc
--- /dev/null
+++ b/queries/perl/folds.scm
@@ -0,0 +1,12 @@
+[
+  (function_definition)
+  (if_statement)
+  (unless_statement)
+  (while_statement)
+  (until_statement)
+  (for_statement_1)
+  (for_statement_2)
+  (foreach_statement)
+  (standalone_block)
+  (pod_statement)
+] @fold