my $logdir = "/whatdir/";

opendir(LOGDIR, $logdir) or die "Can't open '$logdir': $!\n";
foreach my $file (
  grep {-f && (-M > 5)} map "$logdir$_", readdir(LOGDIR)
) {
    unlink $file;
}
closedir(LOGDIR);