use Archive::Zip;

my $zip = Archive::Zip->new("yourfile.zip");