Voce pode fazer um script pra listar as coisas mais velhas. Eu fiz um exemplo que cria uma lista de comandos pra apagar os arquivos que ja nao sao acessados a mais de 300 dias (fiz essa etapa de gerar a lista de maneira a permitir uma conferida antes de efetivamente apagar).
#!/usr/bin/perl
$velho = 300 * 24 * 60 * 60;
$referencia = time() - $velho;
&checadiretorio(".");
sub checadiretorio {
my $dir = shift;
my $diretorio;
if(opendir($diretorio, $dir)) {
foreach $file (readdir($diretorio)) {
if($file ne "." and $file ne "..") {
&checadiretorio($dir."/".$file);
}
}
close($diretorio)
} else {
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($dir);
# atime = last access
# mtime = last modified
if($atime < $referencia) {
print "rm ".$dir."\n";
}
}
}