my $zip = Archive::Zip->new();
chdir $log_dest or die "chdir $log_dest: $!";

opendir(DIR,$log_dest) or die "Can't open the current Directory: $!\n";
my @names = readdir(DIR) or die "Unable to read current dir:$!\n";

foreach my $fileName (@names) {
if ($fileName =~ /.LOG/) {
 $zip->addFile($fileName);
}
}
my $zip_name = "$Short$srv$zeit_str.zip";
print "\nZipping Files to $zip_name\n\n";  
$zip->writeToFileNamed("$zip_name");