in reply to unzip fail using IO::Uncompress::Unzip

Or you could do something like this:

foreach my $zipfile (glob "$zipdir/*.zip") { ... }

In Section Seekers of Perl Wisdom