#find(\&zip_file, $dir);
foreach my $file (glob("$dir/*.log")) {
  $zipped = $zip->addFile( $file );
}
die 'write error' unless $zip->writeToFileNamed( $zip_file ) == AZ_OK;
#End archiving