Good call, unfortunately the docs provide you with:

isEncrypted()

Return true if this member is encrypted. The Archive::Zip module does not currently create or extract encrypted members.

At least you can check wheter a file is protected, and give a decent error message :)

Or you can first check wheter the file is encrypted and, if so, pass it on to some `unzip` system call. Not nice, but as I see it, it can't be done different (please prove that I'm wrong, anyone :)

Because of this limitation, I am using Info-ZIP's unzip in a system call. It is not very elegant but it works.

    system("unzip -L -P $password -n $zipfile  -d $outputdir");

    my $retcode = ($? >> 8);

    if ($retcode) {
        ## abnormal failure
        die "unzip returned abnormal exit code $retcode";
    }
[download]

I found that out just a few minutes ago digging through more documentation on the module. I might see what I can come up with to account for the presence or absence of passwords on those files. Just have to keep playing with it. :-)
---
"Ex libris un peut de tout"

Please post here, if you come up with anything, I would be interested to hear your results, as I am currently planning a similar scheme.

Regards,
Gerard