use Archive::Zip;
$zip = Archive::Zip->new();
die "Invalid zip file!" if $zip->read("zipfile.zip") != AZ_OK;