mkdir "C:\\$dir1\\BC_TESTCASES";

$copy_s= "C:\\SPED_TDSCDMA_IRAT_PRODUCT\\BC_TESTCASES";
	
$copy_d= "C:\\$dir1\\BC_TESTCASES";

system "copy \"$copy_s\" \"$copy_d\" ";

##</code><code>##

mkdir "..\\BC_TESTCASES";

$copy_s= "..\\BC_TESTCASES";

print "$copy_s";
	
$copy_d= "$dir1/BC_TESTCASES";

system "copy \"$copy_s\" \"$copy_d\" ";