$logdir = "/whatdir/";

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