Prob recursivité

Bonjour,

Maintenant mon script fonctionne bien (j'utilise un grep plutot qu'un glob)
mais je n'arrive toujours pas a le faire fonctionne sur toute une
arborescence d'un coup. Je sais qu'il faut utiliser le principe de
recursivité mais ca me depasse completement!

Ce que je voudrais c'est rentrée le dossier c:\toto\ et qu'il aille compter
le nbre de ligne de tous les fichiers ayant l'extension toto1 se trouvant
dans l'arborescence dependant de toto.

Pourriez vous m'indiquez le principe ou la fonction a utiliser.

Voici mon script actuel:

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use diagnostics;
use Tk::Entry;

my $main = MainWindow -> new;
$main -> title("Test 1");
$main -> Label(-text=>"Chemin:")->pack();
my $toto = $main -> Entry()->pack(-padx=>5);
$main -> Label(-text=>"Extension:")->pack();
my $toto1 = $main -> Entry(-width=>4)->pack(-padx=>5);
$main -> Label(-text=>'Le résultat se trouve sur c:\result.txt')->pack(-
side=>'bottom',-pady=>1);
$main->Button(-text=>'Ok',-command=>\&recupPages)->pack(-side=>'left',
expand=>1,-pady=>5);
$main->Button(-text=>'Fermer',-command=>sub {exit;})->pack(-side=>'right',
expand=>1,-pady=>1);
MainLoop();

sub recupPages
{
## Recupere le donnees du champ
my $dir=$toto->get();
my $ext=$toto1->get();
## Cree une liste des fichiers finissant par le champ extension
opendir(DIR,$dir) or die "$!\n";
my @files = grep { /\.$ext$/ } readdir( DIR );
closedir( DIR );
## Processe pour chaqu'un des fichiers
foreach (@files) {
open (SORTIE,">> c:\\result.txt");
open(PL,"$dir/$_") or die "$!\n";
my @lines = <PL>;
close(PL);
print SORTIE "Dossier: $dir Fichier: $_ ".@lines." \n";
}
}


PS: Merci a Paul Gaborit pour son aide passé et ses conseils!