if(checkDir($dir,$age)){
  print "ok\n";
}

sub checkDir{
  my ($directory,$max_age) = @_;
  opendir my $dirhandle,$directory or die $!;
  if(grep{-M $_ < $max_age}readdir($dirhandle)){
    return 1;
  }
  return 0;
}