#!/usr/bin/perl -w

# Author: Ryan Scadlock	with significant help 
#	from Perlmonks merlyn, jarich, and Fletch
# Date: 6 July 2002
# Description: (UNIX only) Recurses through a directory structure and
# checks if more than half of the file in that directory have been used
# in the past 180 days. The path of diectory which are predominately
# unused is apprended to a list.

use File::Find;
# file's date of last access is determining factor
my %access; #$access{$dirname}{old}, $access{$dirname}{new}

my $top = shift || ".";

find sub {
  return unless -f;
  $access{$File::Find::dir}{-A _ > 180 ? 'old' : 'new'}++; #date
}, $top; # put your topdirs here

for (sort keys %access) {
  if ($access{$_}{old} > $access{$_}{new}) {
    print "$_ has more old than new\n";
  }
}