Thankss a lot for the help....A small additional query....is it somehow possible to implement the same in the module Tk::GraphItems::Connector where if two nodes have more than one connecting lines, they will appear as curved lines...
The link for the code is :
http://cpansearch.perl.org/src/LAMPRECHT/Tk-GraphItems-0.12/lib/Tk/GraphItems/Connector.pm