Perl zip utility

ZipUtil.pm

#! perl -w

package ZipUtil;

use strict;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
use Exporter 'import';

our @EXPORT = qw(unzip);

# for CLI
my ($zip_file, $out_file, $filter) = @ARGV;
unzip($zip_file, $out_file, $filter) if scalar @ARGV;

1;

# for importers
sub unzip {
	my ($zip_file, $out_file, $filter) = @_;
	my $zip = Archive::Zip->new($zip_file);
	unless ($zip->extractTree($filter || '', $out_file) == AZ_OK) {
		warn "unzip not successful: $!\n";
	}
}

Awesome. Waisted 2 hours trying different methods that work on older OSX (Snow Leopard) and it's default Perl for an installer I'm working on, and your code here was just the ticket to show me the fix. Why this isn't so well advertised and known for unzipping on Perl -- I'll never know.