print $q->header("image/png");
binmode STDOUT;
print $graph->plot(\@data)->png;