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

##</code><code>##

foreach my $file (@FILES) {
                    my $newFile = $curDir."/".$file;
                    my $curFile = $newDir."/".$file;