k, borrowing metadoktor's get_month_year sub, here is what i come up with.

use strict;
use warnings;

use File::Find;

my $dir = 'c:';
my $search_month = 1;
my $search_year = 2002;

find(\&wanted, $dir);


sub wanted {
    my $content = $_;
    if(-f $content) {
        my($month, $year) = get_month_year($content);
        if(($month eq $search_month) && ($year eq $search_year)) {
            print "$content was last accessed in $month of $year\n";
        }
    }
}

sub get_month_year {
    my $file = shift;
    my @params = stat $file;
    my @dparams = localtime($params[9]);
    my $month = $dparams[4] + 1;
    my $year = $dparams[5] + 1900;

    return($month, $year);
}
[download]

this can probably be made smaller but this will be good to help you understand. Play around with the stat command, its easy and you'll thank yourself later.


-bn