Select Code to Download

$graph->plot(\@data) 
    Plot the chart, and return the GD::Image object.

#!/usr/bin/perl

...

binmode STDOUT;
print $gd;