Select Code to Download

use Graph::Directed;

...
                   claim invoice  claim insurer|);

print "Strongly connected components: ", $g->strongly_connected_graph,
+ "\n";

Strongly connected components:

Strongly connected components: insurer+claim-lineitem+invoice