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