What time

#!/usr/bin/perl -w
# remd: exo sur la base de la recherche du temps sur des fichiers (avec module)

# gestion des erreurs laissée en exercice au lecteur.
useFile::stat;
useTime::localtime;

print"quel repertoire?:\n";
chomp($rep=<STDIN>);

opendir(REP,"$rep")ordie"impossibl d\'ouvrir ce con de repertoire $rep: $!";
@files=readdir(REP);
closedirREPordie"remerde ça couince en fermeture $rep: $!";

foreach$file(@files){
$strDate=ctime(stat($file)->mtime);
$str  = "fichier: $file\tmise à jour le $strDate\n";
print$str;
push@contenu,$str;
}
# l'écrire dans un fichier
print"dans quoi je vous met le resultat?\n";
chomp($f=<STDIN>);

openF,$fordie"merdoume openure compromise de $f: $!";
printF@contenu;
closeF||die"Salope $!";

END;