diff --git a/queries/perl/context.scm b/queries/perl/context.scm
new file mode 100644
index 00000000..53cd3140
--- /dev/null
+++ b/queries/perl/context.scm
@@ -0,0 +1,11 @@
+(function_definition
+  body: (_) @context.end
+) @context
+
+(if_statement
+  consequence: (_) @context.end
+) @context
+
+(while_statement
+  body: (_) @context.end
+) @context