$logdir = "/whatdir/";

opendir(LOGDIR, $logdir) or die "Can't open $logdir: $!";

foreach $file (grep {-f && (-M > 5)} readdir(LOGDIR)) {
  unlink $logdir . $file;  
}
closedir(LOGDIR);