# ex_10-4
# Learning Perl on Win32 Systems, Exercise 10.4

while (<>) {
  chomp;
  $age = -M;
  if ($oldest_age < $age) {
    $oldest_name = $_;
    $oldest_age = $age;
  }
}
print "The oldest file is $oldest_name ",
  "and is $oldest_age days old.\n";