use Archive::Zip qw(:ERROR_CODES :CONSTANTS);

my $zip2_path = 'c:/usr/test/file.zip';
my $zip2 = Archive::Zip->new();
unless ( $zip2->read( $zip2_path ) == AZ_OK ) {
   die "$zip2_path read error";
}