my $path_base = 'C:\Users\darkblack\Desktop\A\.';
...
my $dir = $path_base . $directory_name;