my $base = 'D:\\Some\\specific\\folder\\';
   opendir (my $dhb, $base) or die "Cannot open ".$base.": ".$!;
   closedir $dhb;