Select Code to Download

  foreach my $file (@files) {
    $file = File::Spec->catfile($configdir, $file);
...
    unlink $file if -M $file >= $age;
  }
}