# 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"; 
	}

##</code><code>##

Folder: \Folders\1Folder\1aFolder        

Invalid argument at c:\temp\dir1A9A.tmp\read.pl line ...##.
Press any key to continue . . .