perl Devel-Cycle Devel::Cycle