Select Code to Download

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

my $g = plot ();
...
...

    return $graph->plot(\@data) or die $graph->error;
}