use Graph::Easy::Parser;
        my $parser = Graph::Easy::Parser->new();

        my $graph = $parser->from_text(
'[ 0 ] -> [ 1 ]'.
'[ 1 ] -> [ 202 ]'.
'[ 1 ] -> [ 300 ]'.
'[ 1 ] -> [ 344 ]'.
'[ 2 ] -> [ 3 ]'.
'[ 3 ] -> [ 4 ]'.
'[ 4 ] -> [ 202 ]'.
'[ 4 ] -> [ 345 ]'.
'[ 4 ] -> [ 5 ]'.
'[ 4 ] -> [ 6 ]'.
'[ 5 ] -> [ 440 ]'.
'[ 5 ] -> [ 500 ]'.
'[ 5 ] -> [ 505 ]'.
'[ 5 ] -> [ 508 ]'.
'[ 5 ] -> [ 6 ]'.
'[ 6 ] -> [ 201 ]'.
'[ 6 ] -> [ 503 ]'.
'[ 6 ] -> [ 507 ]'.
'[ 6 ] -> [ 7 ]'.
'[ 7 ] -> [ 2 ]'.
'[ 7 ] -> [ 200 ]'.
'[ 7 ] -> [ 503 ]'.
'[ 7 ] -> [ 507 ]'.
'[ 200 ] -> [ 202 ]'.
'[ 202 ] -> [ 2 ]'.
'[ 202 ] -> [ 201 ]'.
'[ 300 ] -> [ 2 ]'.
'[ 300 ] -> [ 202 ]'.
'[ 300 ] -> [ 344 ]'.
'[ 300 ] -> [ 502 ]'.
'[ 300 ] -> [ 506 ]'.
'[ 344 ] -> [ 300 ]'.
'[ 345 ] -> [ 4 ]'.
'[ 440 ] -> [ 5 ]'.
'[ 500 ] -> [ 5 ]'.
'[ 502 ] -> [ 300 ]'.
'[ 503 ] -> [ 6 ]'.
'[ 505 ] -> [ 5 ]'.
'[ 506 ] -> [ 300 ]'.
'[ 507 ] -> [ 6 ]'.         
'[ 508 ] -> [ 6 ]'.
'[ 507 ] -> [ 7 ]'.
'[ 503 ] -> [ 7 ]'
);                         
print $graph->as_ascii(); 

##</code><code>##

#!/usr/bin/perl

use Graph::Easy::Parser;
        my $parser = Graph::Easy::Parser->new();

        my $graph = $parser->from_text(
"[ 0 ] -> [ 1 ]".
"[ 1 ] -> [ 202 ]".
"[ 1 ] -> [ 300 ]".
"[ 1 ] -> [ 344 ]".
"[ 300 ] <-> [ 344 ]".
"[ 300 ] <-> [ 502 ]".
"[ 300 ] <-> [ 506 ]".
"[ 300 ] -> [ 2 ]".
"[ 2 ] -> [ 3 ]".
"[ 3 ] -> [ 4 ]".
"[ 4 ] -> [ 5 ]".
"[ 5 ] <-> [ 440 ]".
"[ 5 ] <-> [ 500 ]".
"[ 5 ] <-> [ 505 ]".
"[ 5 ] -> [ 6 ]".
"[ 5 ] -> [ 508 ]".
"[ 508 ] -> [ 6 ]".
"[ 6 ] <-> [ 503 ]".
"[ 6 ] <-> [ 507 ]".
"[ 6 ] -> [ 7 ]".
"[ 7 ] <-> [ 503 ]".
"[ 7 ] <-> [ 507 ]".
"[ 7 ] -> [ 200 ]".
"[ 200 ] -> [ 202 ]".
"[ 202 ] -> [ 201 ]".
"[ 6 ] -> [ 201 ]"
);                         
print $graph->as_ascii();