#!/usr/bin/perl

use strict;
use warnings;
use Graph::Easy qw/as_graphml as_graphml_file/;

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

my $graphml_file = $graph->as_graphml_file();
$graphml_file =~ s/\n.*<!--.*-->\n//;

my $graphml = $graph->as_graphml();
$graph->add_edge('orderinfo', 'servicename');
binmode STDOUT, ':encoding(UTF-8)';
print $graphml = $graph->as_graphml();