>>586
use Archive::Zip qw(:ERROR_CODES);
use feature qw(say);

my $zip = Archive::Zip->new;
($zip->read('foo.zip') == AZ_OK) or die;
foreach my $member ($zip->members){
say $member->fileName, " => ", $member->isEncrypted;
}