Finde gamle filer

Hej,

Jeg har lidt problemer med et lille Perl script.
Scriptet skal, på en Unix maskine, gennemløbe et directory og rapportere alle directories hvor underliggende filer ikke har været brugt (dvs. læst eller skrevet fra/til) i mere end en måned, men hvis et directory indeholder f.eks. to sub-directories skal kun parent directoriet rapporteres og ikke de to sub-directories. F.eks.

Dir
    - Sub dir
        - fil (ikke været brugt i en måned)
        - fil (ikke været brugt i en måned)
   
    - Sub dir2
        - fil (ikke været brugt i en måned)
        - fil (HAR været brugt i en måned)
   
    - Sub dir3
        - fil (ikke været brugt i en måned)
       
    - Sub dir 4
        - Sub sub dir
            - fil (ikke været brugt i en måned)
            - fil (ikke været brugt i en måned)
        - Sub sub dir 2
            - fil (ikke været brugt i en måned)
Dir 2
    - Sub2 dir
        - fil (ikke været brugt i en måned)
    - Sub2 dir2
        - fil (ikke været brugt i en måned)   
    - Sub2 dir3
        - Sub2 sub dir
            - fil (ikke været brugt i en måned)       
        - fil (ikke været brugt i en måned)

Når scriptet har gennemløbet ovenstående skal følgende altså rapporteres (dvs. bare udskrives på skærmen):

Dir/Sub dir
Dir/Sub dir3
Dir/Sub dir4
Dir2

Der skal tydeligvis foretages en rekursiv gennemgang, men jeg har lidt problemer med at få taget højde for det hele. Er der nogle der har en løsning eller lign.?