#split date into seperate vars
my($day, $month, $mday, $time, $year) = split(" ", $datetime);
my($timeh, $timem, $times) = split(':', $time);

#this function calculates the number of seconds that have passed since
+ Midnight, January 1, 1970
my $time = timegm($times,$timem,$timeh,$mday,$month,$year);

##</code><code>##

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 &nbsp;  Epoch mod : $stats[9],    LT mo
+d $filetime[2]:$filetime[1]:$filetime[0] $filetime[4]/$year,    Age of
+ file : $fileage <br>";
}