$^T = time();
  my $fileage = -M $filename;

##</code><code>##

  my ($oldest_file) =  sort { -M $b <=> -M $a } @filenames;