my $path_files = "Structure/";
my $path_files_history = "Structure.Backup/";

# Verz. zum lesen oeffnen
opendir (BASE, $path_files) || die "Cannot read directory: ";
# Verzeichnis einlesen (checken ob datei)
my @dir = grep { $_ !~ /^..?$/ && -f "$path_files/$_" } readdir(BASE);
closedir (BASE);
# Alle eingelesenen Dateien durchgehen
  foreach my $file (@dir) {
  # Und kopieren
  copy("$path_files/$file", "$path_files_backup/$file");
}