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