find (\&checkfile, "/home/costas");
sub checkfile {
        
    my @stats = stat $_;
    $fileage = $time-$stats[9];
       my @filetime = localtime($stats[9]);
    my $year = $filetime[5]+1900;
      print "$File::Find::name    Epoch mod : $stats[9],    LT mo
+d $filetime[2]:$filetime[1]:$filetime[0] $filetime[4]/$year,    Age of
+ file : $fileage <br>";
}