Don't forget good ol' glob.

#!/usr/bin/perl -w
use strict;

my ($age, $file) = (0, '');
for (<*BOT*>) {
  if (-M > $age) {
    $age = -M;
    $file = $_
  }
}
print "$file\n";
[download]