#Open the directory to list what's inside 
opendir(DIR, "c:\$directory") || die "Cannot open $directory $!";
foreach $name (sort readdir(DIR)) { #Prints names sorted 
     print "$name\n"; 
} 
closedir(DIR);