for my $filename (@files) {

  my $filepath = "$dir$filename";
  stat($filepath);
  if (-f _ and -M _ > $daysToPurge) {
    print LOGF "$filepath will be purged\n";
    unlink $filepath or print ERRLOG "Can't remove $filepath: $!";
  }
}