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

       $graph->add_edge_once ('Bonn', 'Berlin');

        print $graph->as_ascii( );

        # prints:

        # +------+     +--------+
        # | Bonn | --> | Berlin |
        # +------+     +--------+