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]

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

My general thought would be since I know if the file is encrypted, to simply pass that in as a parameter and make a system call to an unzip program (PKZIP in our case). Otherwise, simply make use of the Archive::ZIP module routines. Put it together into a small subroutine, pass it the zip file name as a required parameter and the password as an optional parameter. I might post some pseudo-code when I have something put together.
---
"Ex libris un peut de tout"