Help for this page

Select Code to Download

Select or download this

use Tie::Cycle;

...
print $cycle; # 000000
print $cycle; # FFFF00
print $cycle; # FFFFFF  back to the beginning