À la limite entre le module et le programme utilitaire, le module
Dir::Purge permet de nettoyer un répertoire selon une politique
donnée. En l'occurence, la seule politique applicable est l'age des
fichiers et ce module va simplement supprimer les fichiers les plus
anciens pour ne laisser que le nombre exact de fichiers que vous voulez
dans le dit répertoire.
use Dir::Purge;
purgedir ({keep => 5, strategy => "by_age", verbose => 1}, "./tt");