#!/usr/bin/perl

while (1)
	{
	system("./build-index");
	sleep(60*60);
	}