use File::Copy;
 my @dir = @_;
 $pfad = "./mywebs/testing3";
 $target = "./mywebs/ioewryoieur";

 opendir(DIR,$pfad);
 @dir = readdir(DIR);
 closedir(DIR);
 unless(-e $target){ mkdir($target,0777);}
 my $dd;

  foreach $dd ( sort @dir ){
 	  unless (-d "$pfad/$dd") {
 		if (-e "$target/$dd"){
	 			$errcntm++;
		}
		else{
			copy("$pfad/$dd","$target/$dd");
 	  	}
    }
  }
  foreach $dd ( sort @dir ){
   if( $dd ne "." && $dd ne ".." && -d "$pfad/$dd" ){
    unless(-e "$target/$dd"){
    	mkdir("$target/$dd",0777);
    }
   }
  }

 return($errcntm);