HTML: /directory/path/dir/fil.html             Mon Jul 22 14:55:04 2002
HTML: /directory/path/dir/df.html           Mon Jul 22 15:04:58 2002
HTML: /directory/path/dir/fddd.html        Thu Feb 28 13:44:54 2002
HTML: /directory/path/dir/fda.htm              Thu Feb 28 13:42:49 2002


##</code><code>##

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";
}