Help for this page

Select Code to Download

Select or download this
```
find(\&oldest, @ARGV);
```

Select or download this

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