Select Code to Download

use Graph::Easy;
my $graph = Graph::Easy->new();
...

# print the graph
print $graph->as_asciii();

# save the graph by saving the list of original nodes
open($filehandle,"<","nodes.dat") or die("Can't open file 'nodes.dat' 
+for writing: $!\n");
print $filehandle join("\n",@nodes);