[Perl] - nettoyage fichier vieux de X jours

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
use File::Spec;
use File::stat;



my $nomfichier='listFolder.txt00';
my $var;
my $var2;
my $createdtime;

####### lecture des infos du fichier####
########################################
print "\n\nFichier de reference : ",$nomfichier,"\n";

open (FH,"<$nomfichier") or die print "Erreur ouverture fichier " . $nomfichier . "\n";
while ($var=<FH>)
{
if ($var =~/^([a-zA-Z0-9\\\:]+),([0-9])/)
	{
	
	####### affiche les infos des dossiers traités et depuis quel date il va nettoyer ######

	print "\n\nfiles in $1 created before this date will be delete : ";
	print scalar localtime(time - ($2 * 86400)),"\n\n";

  ####### visite les repertoires ##############
  $var2=$1;
  $var2 =~ s/\\/\\\\/g; #double les \

  while (<$var2\\*>)
  	{
  	$createdtime = (stat($_))[9];
  	print "\n",$createdtime;
  	#if ($createdtime lt time)
  	#	{
  	#	print "\nok";
  	#	}
  	}

	}
}
close FH;