{
  my(@files,$file);
  local(*DIR);

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

  foreach $file (@files)
    {
      next if(/^\.\.?/);
      ...
    }
}