Anonymous

sub unzipScalar {
    my $filename = shift;
    my $content  = shift;
    my $SH = new IO::Scalar \$content;
    my $zip = Archive::Zip->new();
    $zip->readFromFileHandle( $SH );
    return $zip->contents($filename);
}