#!/usr/bin/perl -slw

use strict;
use Graph::Easy;

my $graph = Graph::Easy->new();
$graph->add_edge( 'Bonn', 'Berlin' );

open STDOUT,  '>',  'graph.graphml';
binmode STDOUT, ':encoding(UTF-8)';
print $graph->as_graphml();
close STDOUT;

##</code><code>##


<?xml version="1.0" encoding="UTF-8"?>
<graphml xmlns="http://graphml.graphdrawing.org/xmlns"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xsi:schemaLocation="http://graphml.graphdrawing.org/xmlns
     http://graphml.graphdrawing.org/xmlns/1.0/graphml.xsd">

  <!-- Created by Graph::Easy v0.70 at Thu Nov 17 03:13:06 2011 -->

  <graph id="G" edgedefault="directed">
    <node id="Berlin">
    </node>
    <node id="Bonn">
    </node>

    <edge source="Bonn" target="Berlin">
    </edge>
  </graph>
</graphml>

##</code><code>##

#!/usr/bin/perl -slw

use strict;
use Graph::Easy;
use Graph::Easy::Parser;

my $parser = Graph::Easy::Parser->new();
print $parser->from_text('[Bonn]->[Berlin]')->as_ascii();