my $zip = Archive::Zip->new();
my $member = $zip->addFile( 'logfile.log' );
my $status = $zip->writeToFileNamed( 'dated_filename.zip' );
die "error somewhere" if $status != AZ_OK;