In addition to the other comments here, you can save yourself one stat per file if you use the cached "_" file, like this:

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: $!";
  }
}
[download]