#!/usr/bin/perl -w # # A dead simple example use strict; use lib '../lib'; use GraphViz::Remote; my $g = GraphViz::Remote->new(); $g->add_node('London'); $g->add_node('Paris', label => 'City of\nlurve'); $g->add_node('New York'); $g->add_edge('London' => 'Paris'); $g->add_edge('London' => 'New York', label => 'Far'); $g->add_edge('Paris' => 'London'); $g->as_png("remote.png"); print $g->as_png();