opendir(DIR, "$directoryName");
@files = readdir(DIR);
closedir(DIR);

foreach $file (@files)
   {
   print "$file\n\n";
   }