use File::stat;<BR>
use File::Find;<BR>
use Getopt::std;<BR>
use Time::Local;<BR>
use DateTime.pm; # Home grown<BR>
use Extras;      # Ditto<BR>
...
find (\&Process_Directory, $TreeTop);<BR>
...<BR>
...<BR>
# Close Report Files etc.
exit;<BR>

sub Process_Directory {

$File = $File::Find::name;

$Last_Modified = $Inode->mtime;
$Last_Accessed = $Inode->atime;
$Size          = $Inode->size;

${@{$Year_Prof[$File_Age_Yrs]}}[1] += 1;
${@{$Year_Prof[$File_Age_Yrs]}}[2] += $Size;

printf F_REP ("%02d/....,..."; 
<BR>
if ( $EXCEL ) {
  print F_EXC "...";
}

return;
}