>289
my $time = time();
while(1){
  if((time() - $time) >= 3600){
    処理;
    $time = time();
    sleep 3599;
    next;
  }
  sleep 1;
}

# 共有鯖でやるべからず