opendir DIR, "dirname";
@files = readdir DIR;
closedir DIR;

for $file (@files) {
  do whatever you want ...
}