opendir(DIR, $directory) or die "Failed to open $directory: $!";

while (defined($filename = readdir(DIR))) {
  #Do stuff to each file $filename
}
closedir(DIR);