my $log = "C:/Users/tt/Documents/Traning/Archive/log.txt";
my $base = 'C:/Users/tt/Documents/Traning/Archive';
my $archive = "$base/$date.7z";
print $log capture_merged{system ('C:/Program Files/7-Zip/7z.exe', ' e ', $archive, '-r, $file' , "\n\n\" )};