use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
   my $zip = Archive::Zip->new();
   $member = $zip->addFile( 'xyz.pl');
   die 'write error' unless $zip->writeToFileNamed( 'someZip.zip' ) == AZ_OK;