----------------------------------------------------
# c:\Folders\1Folder\1aFolder        
#   my $directory = "\\Folders\\1Folder\\1aFolder";
    my $directory = "c\:\\Folders\\1Folder\\1aFolder";
   print ("Folder: ", $directory, "\n");      
   opendir (DIR, $directory) or die $!;
         while (my $fldr = readdir(DIR)) 
         {
         print "Files & Folders: ", $fldr, "\n"; 
    }
closedir(DIR);