From 1fea69c810b82ee1e0104eda3f3af7936aa4bc6b Mon Sep 17 00:00:00 2001
From: Paul Cochrane <paul@liekut.de>
Date: Fri, 19 Jun 2015 21:35:03 +0200
Subject: [PATCH] [cookbook] pass dir to process as command line arg

---
 categories/cookbook/09directories/09-05-all-files-dir.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/categories/cookbook/09directories/09-05-all-files-dir.pl b/categories/cookbook/09directories/09-05-all-files-dir.pl
index 93eddc8..f473857 100644
--- a/categories/cookbook/09directories/09-05-all-files-dir.pl
+++ b/categories/cookbook/09directories/09-05-all-files-dir.pl
@@ -10,8 +10,11 @@
 
 =end pod
 
-for dir(".") -> $f {
-    say $f.perl;
+sub MAIN(:$dir = ".") {
+    # print Perl's representation of each file
+    for dir($dir) -> $f {
+        say $f.perl;
+    }
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6