Select Code to Download

#!/usr/bin/perl
use strict;
...

$g->as_gif("nodes.gif");
$g->as_dot("nodes.dot");

digraph test {
    graph [ratio=fill];
...
    "New York" [label="New York", fontname=arial, fontsize=8, pos="119
+,34", width="0.86111", height="0.5"];
    London -> "New York" [fontname=arial, fontsize=8, label=Far, pos="
+e,104.51,50.015 57.295,102.2 68.687,89.609 84.811,71.787 97.72,57.52"
+, lp="91.5,76"];
}