#!/usr/bin/env perl

# 	$Id: 1199058.pl,v 1.2 2017/09/11 09:10:43 karl Exp karl $
# http://perlmonks.org/?node_id=1199058

use strict;
use warnings;
use feature qw(say);
use Path::Iterator::Rule;

my $rule = Path::Iterator::Rule->new->file->name("*.zip");
my $path = q(.);
my $next = $rule->iter($path);

while ( defined( my $archive = $next->() ) ) {
    say $archive;
    # more stuff..
}

__END__