<%perl> use Image::Magick; $| = 1; my $image = Image::Magick->new; $image->Set (size => '500 x 750'); $image->Read ('xc:black'); $m->clear_buffer; $r->content_type ('image/png'); $image->Write ('png:-'); $m->abort;