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];
        print  localtime($mtime) . "\n";
}