Select Code to Download

#!/usr/bin/perl -slw

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

<?xml version="1.0" encoding="UTF-8"?>
...
    </edge>
  </graph>
</graphml>

#!/usr/bin/perl -slw

...

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