while(1) {
  my $startingtime = time;
  expensive_function();
  sleep $startingtime - time() + 7200;
}