#!/usr/bin/perl

print ("debut de la recherche...\n");
&cherchefichier;
print ("fin de la recherche.\n");

sub cherchefichier
{
  foreach $fichier(<*>)
    {
      if (-d $fichier)
        {
          chdir ($fichier);
          &cherchefichier;
          chdir ("..");
        }
      else
        {
          if ($fichier =~ /\.tex$/)
            {
              print ($fichier."\n");		
            }
        }
    }
}
