use File::Spec;

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


##</code><code>##

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


##</code><code>##

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