Comment puis-je récursivement lire les répertoires en Perl?

Je veux lire un répertoire de façon récursive d'imprimer la structure des données dans une Page HTML avec Modèle::boîte à outils.
Mais je suis suspendu dans la façon d'enregistrer les Chemins d'accès et des Fichiers dans un format qui peut être lu facilement.

Mon idée a commencé comme ça

sub list_dirs{

     my ($rootPath) = @_;
     my (@paths);

     $rootPath .= '/' if($rootPath !~ /\/$/);

     for my $eachFile (glob($path.'*'))
     {

         if(-d $eachFile)
         {
              push (@paths, $eachFile);

              &list_dirs($eachFile);
          }
          else
          {
              push (@files, $eachFile);
          }
     }

 return @paths;
}

Comment pourrais-je résoudre ce problème?

OriginalL'auteur Przemek | 2010-03-19