Select Code to Download

#Updated Script 
local $\ = "\n";
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
...
die 'write error' unless $zip->writeToFileNamed( 'Test.zip' ) == AZ_OK
+;

print "File Archive Competed";