use Archive::Zip qw(AZ_OK);
my $zip = Archive::Zip->new();
unless ($zip -> read($zipfile) == AZ_OK) {
   $status -> insert ('end', "Can not read file $zipfile!\nExiting!\n");
...
}