[PERL] sup des fichiers dans sous dossiers

Bonjour,

Je suis débutante en Perl ! Après beaucoup de recherche sur internet, j arrive a quelque chose mais qui malheureusement ne marche pas.

J'aimerai supprimer des fichiers dans des sous dossiers avec pour critère une date (>5 mois), par exemple:
Dossier Test -> Dossier Test-bis -> fichier1 (cree le 02/06/2011) \\ ce fichier doit etre supprime
fichier2 (cree le 24/10/2011)



Voici mon code ... je ne sais pas s'il marche car après avoir rentrer le chemin du dossier, j'ai 2 erreurs
- Use of uninitialized value $files in -M at test.pl line 21, <STDIN> line 1.

- Use of uninitialized value in numeric gt (>) at test.pl line 21, <STDIN> line 1.

Quelqu'un peut il m'aider ?

use strict;
use warnings;
use File::Find;
 
 my $files;
 my @repertoires = lister_repertoires_recursif('chemin dossier');
 
sub lister_repertoires_recursif 
{
   
	print "Veuillez entrer le chemin du dossier : ";
	my $repertoire = <STDIN>;
	chomp($repertoire);
    opendir (REP, $repertoire) or die $_;
	
   
		if( -d "$repertoire" ) # le repertoire existe
		{
		opendir (DIR, "$repertoire") || die("Impossible d'ouvrir $repertoire...");
				
					  while ( -M $files > 5 )   #-M date de la derniere modification en jours
						{
							{	
								unlink $files;
								print "$repertoire supprime\n";
							}
						}
									closedir (DIR);
		}
		else
		{
			mkdir ($repertoire) || die ("Erreur creation repertoire\n");
		}
	
    return @repertoires;
}