use strict;
use warnings;

use File::Find; 
@ARGV = ('.') unless @ARGV; 
my %age;
my %name;

sub oldest { 
  return if ((defined $age{$File::Find::dir}) && ($age{$File::Find::dir} < (stat($_))[9])); 
  $age{$File::Find::dir} = (stat(_))[9]; 
  $name{$File::Find::dir} = $File::Find::name; 
} 

find(\&oldest, @ARGV); 
 
 foreach my $n (keys(%age))
 {
	print $name{$n}."  " . scalar(localtime($age{$n})) . "\n"; 
}