HELP: recherche de fichier en langage perl

#!/usr/bin/perl
#
use warnings;use strict;
use File::Find; # il s'agit du module Perl File::Find qui fournis la fonction find
use File::Basename; # il s'agit du module Perl File::Basename qui fourni la fonction basename

my (%ext,$fic);
#%ext n'est pas un tableau mais un hash qui contient
# des couples clé=valeur
sub extension{ # début d'une procédure
   $fic = basename($File::Find::name);
   #$File::Find::name done le chemin complet de fichier
   # Ex: /chemin/vers/fichier.sty
   #basename permet d'extraire le nom de fichier de chemin complet
   # Ex: fichier.sty
   $ext{$1}++ if $fic =~ /.(sty)$/i;
   # ici en fait il y a une pétite erreur - j'ai oublié de mettre des paranthéses
   # la clé de hash sera sty et comme elle est unique
   # pour chaque nouveau fichier .sty la valeur de la clé sera incrementé de 1
   # donc pour le 1er fichier clé=1
   # pour le deuxième fichier clé=2
   # etc.
}

find (\&extension,$ARGV[0]);
# la fonction find du module File::Find
# $ARGV[0] c'est le 1er argument de ligne de commande
# c'est-à-dire le répertoire où on fait la recherche
# dans l'exemple que je t'ai montré (et que tu as sûrement regardé)
# j'ai exécuté perl exo_tematek1.pl ../bin/my_perl_script/
# donc le script on l'exécute avec la commande
# perl script.pl /chemin/vers/repertoire

foreach (sort keys %ext){
# keys %ext c'est un tableau qui contient seulement les clés du hash
# dans notre cas il n'y a qu'une seule clé
# sort fait le tri les clés, mais c'est vrai qu'il n'est pas nécessaire
# vu qu'il n'y a qu'une seule clé (j'ai fait un copier / coller )
  printf "extension %7s => %7s fois\n",$_,$ext{$_};
# pour comprendre %7s il suffit de lire la documentation
# de la fonction sprintf du Perl

}

#!/usr/bin/perl
#
use warnings;use strict;
use File::Find;
use File::Basename;

my (%ext,$fic);

sub extension{
   $fic = basename($File::Find::name);
   $ext{$1}++ if $fic =~ /.sty$/i;
}

find (\&extension,$ARGV[0]);

foreach (sort keys %ext){
  printf "extension %7s => %7s fois\n",$_,$ext{$_};
}

#!/usr/bin/perl
#
use warnings;use strict;
use File::Find;
use File::Basename;

my (%ext,$fic);

sub extension{
   $fic = basename($File::Find::name);
   if ($fic =~ /^\./){
   # traitement de fichier cachés
   # sachant que sous GNU/Linux les fichiers cachés
   # commencent avec un point on risque de compter
   # tous les fichiers cachés en tant qu'extension
     $ext{$1}++ if $fic =~ /^\..+\.([a-z]+)$/i;
   } else {
     $ext{$1}++ if $fic =~ /.*\.([a-z]+)$/i;
   }
}

find (\&extension,$ARGV[0]);

foreach (sort keys %ext){
  printf "extension %7s => %7s fois\n",$_,$ext{$_};
}