#Updated Script 
local $\ = "\n";
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
print "File Archive Started";
my $zip = Archive::Zip->new();
$member = $zip->addFile( 'Test.txt');
die 'write error' unless $zip->writeToFileNamed( 'Test.zip' ) == AZ_OK;

print "File Archive Competed";