##main.pl
my $x = 0;
while(1){
  sleep 3600;
  $x++;
  # fork the process
  exec("./program$x &");
}