my $dir = "C:\\Users\\darkblack\\Desktop\\".$directory_name; or 
my $dir = "C:\\Users\\darkblack\\Desktop\\.$directory_name";