print "Content-Type: image/svg\n\n";

binmode stdout;

my $g = GraphViz->new();

# create graphviz stuff

print $g->as_svg;