$r->register_cleanup(\&my_long_running_sub);