Select Code to Download

use strict;
use warnings;
...
$graph->add_edge( split m{ -> } ) for keys %edges;

print $graph->as_ascii();

Using Graph::Easy version 0.76
1 -> 2
...
          +---+                 |                           +---+     
+             |
          | 3 | ----------------+                           | 9 | ----
+-------------+
          +---+                                             +---+

...
my $graph = Graph::Easy->new();
...
$graph->add_edge( 1, 2 );

print $graph->as_ascii();