Select Code to Download

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

...
# create graphviz stuff

print $g->as_svg;