my $pic = $image->ImageToBlob();
$r->send_http_header;
$r->print( $pic );