#!/usr/bin/perl

use Graph::Directed;
use Graph::Undirected;

my $gd = Graph::Directed->new;
my $gu = Graph::Undirected->new;

$gd->add_path( 'a'..'e' );
$gu->add_path( 'a'..'e' );

print "gd: $gd\n";
print "gu: $gu\n";