my ($age, $name) = (0, "");
opendir DIR, $directory;
while(my $curname = readdir DIR) {
    my $curage = (stat "$directory/$curname")[9];
    next unless -f _;
    ($name, $age) = ($curname, $curage) if $curage > $age;
}
closedir DIR;