Re: http://blog.nomadscafe.jp/2012/08/zshzargsperl.html

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;
use File::Zglob;
use Getopt::Long;
use Pod::Usage;

our $VERSION=$File::Zglob::VERSION;

GetOptions (
    'h|help' => \my $help,
    'v|version' => \my $version,
) or pod2usage(2);
$version and do { print "zglob: $VERSION\n"; exit 0 };
pod2usage(1) if $help;

pod2usage(2) unless @ARGV;

local $\ = "\n";
for (@ARGV) {
    print $_ and next if -f $_;
    print $_ for zglob($_);
}

__END__

=head1 NAME

zglob - extended globs

=head1 SYNOPSIS

 zglob ([options] --) pattern

 Options:
    -help -h                       brief help message