my $zip;
eval { $zip=Archive::Zip->new(); } or die $@