Select Code to Download

#plot data to a png graph
# I have a temporary image because I end up splicing 
...
open(IMG, ">./charts/$filename") or die $!;
binmode IMG;
print IMG $gdgraph->png;

print STDOUT $query->header(-type=>'image/png');
binmode STDOUT;
print STDOUT $image->png();