author utils

tokuhirom · Jun 15, 2012 · 1608c2c · 1608c2c
1 parent 4865c27
commit 1608c2c
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/author/test.pl b/author/test.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use utf8;
+use 5.010000;
+use autodie;
+
+use File::Zglob;
+
+my $pattern = shift or die "Usage: $0 'pattern'";
+say $_ for zglob($pattern);