Select Code to Download

use Graph::Easy;
my $graph = Graph::Easy->new();
...
$graph->add_edge(3,5);
$graph->add_edge(1,7);
print $graph->as_ascii;

  +-----------------------------+
  |                             |
...
          +---+                 |
          | 3 | ----------------+
          +---+