sub process_files_1 {
  my @stack=@_;
  my $dir=getcwd;

  my ($p,$dh,$path);
  while(@stack)
  {
    $path = pop(@stack);
    chdir( $path ) or die "chdir($path) failed: $!";;
    opendir( $dh, '.' ) or die "Unable to open $path: $!\n";
    for( readdir( $dh ) )
    {
      next if( $_ eq '.' or $_ eq '..' );
      if( -d $_ )
      { push(@stack, $path.'/'.$_); }
      elsif( substr($_,-4,4) eq '.pod' )
      { push(@files_erg, $_); }
    }
    closedir ($dh);
  }

  chdir ( $dir ) or die "chdir($dir) failed: $!\n";
  return $count;
}