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

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

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.