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

##</code><code>##

my $g = plot ();
...

sub plot {
    my @data = (
    ...
    ) or die $graph->error;

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