#!perl
use strict;
use File::Path 'make_path';
my $dir = 'xyz1';
make_path("$dir/BC_TESTCASES",{verbose=>1}) or warn "$!";