Ok, first when putting code or text that should not change use code tags around it. Easier for us to read :).

But to problem. Easy way to compose paths (so that they are cross-platform, also) is by using File::Spec. In there commands rootfir,catdir and catfile would be what you want. Example:

use File::Spec;

$dir1=catdir(rootdir(),$ver,$client,"qa");
# and for copy
$old=catfile($dir,$file);
$new=catfile($dir1,$file);
[download]

Then try the copy with command with die around it.

copy ($old,$new) or die "Unable to copy '$old' to '$new': $!";
[download]

Note what I added to the die. What is copied to where is a good idea, as it shows to you what actually is happening. Similar thing when trying to open files (print what is actually being tried). I've fixed a lot of my own mistakes like this ;).

UPDATE: as bart told, need to use File::Spec::Functions. Remember to ask for all commands you require.

use File::Spec::Functions (qw/catdir rootdir catfile/);
[download]