use File::Spec::Functions qw(catdir); ... $newdir = catdir( $dstdir => $dir );