#!/usr/bin/perl

use strict;
use Graph;
use Graph::Layout::Aesthetic::Topology;
use Graph::Layout::Aesthetic::Monitor::GnuPlot;

my $g = Graph->new();

$g->add_vertex("V1");
$g->add_vertex("V2");

my $topology = Graph::Layout::Aesthetic::Topology->from_graph($g);

my $monitor = Graph::Layout::Aesthetic::Monitor::GnuPlot->new();
my $aglo = Graph::Layout::Aesthetic->new($topology);

$monitor->plot($aglo);