use strict;
use warnings;
use GraphViz;
use CGI;

my $q = new CGI();
print $q->header(), $q->start_html();

my $g = GraphViz->new(layout => 'dot', 
                      rankdir => 0, 
                      node => { height => '0.05', shape => 'box', URL => '\N' } );

$g->add_edge('A' => 'B');
$g->add_edge('A' => 'C');

# hier startet graphviz dot.exe
print $q->p($_) for (split /\n/, $g->as_ismap);

print $q->end_html;