my $unzip;
my $ok = eval {
    $unzip = Archive::Zip->new($zipfile);
    1;
};
if( ! $ok ) {
    $logger->info(":-( $@");
};