You could use something like Cache::Cache to cache sequence numbers and use a mod_perl handler to replenish them as and when required.