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

##</code><code>##

$image = new Image::Magick($image_type);
$image->BlobToImage($blob);