perl 连通图计算？？？

8 9
8 10
9 8
10 8
10 9
10 11
10 12
10 13
10 14
10 15
11 8
11 9
11 10
12 8
12 9
12 10
12 11
13 8
13 9
13 10
13 11
14 8
14 9
14 10
14 11
15 8
15 9
15 10
15 11
第一个数字是起点，第二个数字是重点，可以形成一条边，
怎么计算出连通图的数目，比如8->9->8这是一个连通图，但是9->8->9也是连通图，但是节点相同，算是一个。
用perl实现有什么好方法么？？

http://bbs.chinaunix.net/viewthr ... p;extra=&page=1

这里有个类似的，你看看能不能解决你的问题。