use Data::Dumper;
print "vorher:", Dumper [$path, $path_ziel_neu];
system("ls", "-R", "Gardasee");
dircopy(...);
print "nachher:\n";
system("ls", "-R", "Gardasee");