#!/usr/bin/env perl
use strict;
use warnings;

use lib map { "$ENV{HOME}/sandbox/$_/lib" } qw(SVG-Graph-Kit);
use SVG::Graph::Kit;

my $data = [ [ 1,  2, 0 ],
             [ 2,  3, 1 ],
             [ 3,  5, 1 ],
             [ 4,  7, 2 ],
             [ 5, 11, 3 ],
             [ 6, 13, 5 ], ];

my $g = SVG::Graph::Kit->new(data => $data);

print $g->draw;
