my $gd_image = $graph->plot(\@data) or die $graph->error;
        print header(-type => "image/png") or die $!;
        binmode STDOUT or die $!;
        print $gd_image->png or die $!;