foreach (@FILES) {
                    my $newFile="$currentDir"."\/".$file;
                        my $curFile="$oldDir"."\/".$file;