You can (in no particular order)

1. call qx[ file $file ] and grep if the output says it's a ZIP file
2. read the first few bytes and see if they match the string PK\003\004
3. use Archive::Zip (this may or may not help)