while( defined( my $file = readdir(DIR) )) {
    next if $file eq '.' or $file eq '..';
    munge($file);
  }