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