#!C:\Perl64\bin\perl
use strict;
use warnings;

use CGI;
use GraphViz2;

my $q = CGI->new();
print $q->header('image/svg+xml');

my $g = GraphViz2->new(global => { driver => 'C:\Program Files (x86)\Graphviz2.30\bin\fdp.exe' });
$g->add_node(name => 'test');
$g->run(format => 'svg');
print $g->dot_output();


##</code><code>##

[CGI] IPC::Run 0008 01234567890123 [#1(5888)]: cmd line: "C:\\Program Files (x86)\\Graphviz2.30\\bin\\fdp.exe" -Tsvg
[CLI] IPC::Run 0008 01234567890123 [#1(5472)]: cmd line: "C:\Program Files (x86)\Graphviz2.30\bin\fdp.exe" -Tsvg