use strict;
use warnings;
use GraphViz;

my $g = GraphViz->new(layout => 'circo',
                      rankdir => 1,
                      overlap => 'scale',
                      node   => { fontname => 'Helvetica',
                                  fontsize => '12',
                                  shape    => 'ellipse'},
                       edge  => { fontname => 'Helvetica',
                                  fontsize => '12',
                                  fontcolor => 'blue',
                                  minlen   => 2 } );


$g->add_node('aktiv');
$g->add_node('bereit');
$g->add_node('blockiert');

$g->add_edge('aktiv' => 'bereit', label => 'timeout');
$g->add_edge('aktiv' => 'blockiert', label => 'block');
$g->add_edge('bereit' => 'aktiv', label => 'dispatch');
$g->add_edge('blockiert' => 'bereit', label => 'wakeup');

open (DAT, ">", "gviz2.png") || die "Oops: $!\n";
binmode DAT;
print DAT $g->as_png;
close(DAT);