$zip = Archive::Zip->new();

eval {$zip->read($filename);};
if($@) { print "Couldn't unzip $filename\n";}