use strict;
use File::Find;

my $start = '/directory/path/dir';

find(\&process, $start);

sub process
{
        return unless /\.html?$/;
        print "HTML: $File::Find::name\t\t";
        my $mtime  = (stat($_))[9];
        my @timevars = localtime($mtime);
        my @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );

        return unless ( 
                (($timevars[5]+1900) < 2000) || (  #less than 2000 or
                (($timevars[5]+1900) == 2000) && #year is 2000
                ($timevars[4] == 0) && # month is Jan
                ($timevars[3] == 1) ) # Day is 1
        );

        printf(
                "%s %02u %04u\n",
                $months[$timevars[4]],
                $timevars[3],
                $timevars[5]+1900,
        );
}