There has been some discussion of this both recently and in the past, in particular you may want to look at the Tie::Cycle module.