#!/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;