plot (\$g);
...

    $$graphimage = $graph->plot(\@data) or die $graph->error;