<%flags>
 inherit => undef
</%flags>

<%init>
    use Image::Magick;

    my $image = Image::Magick->new;
    $image->Set(size => '500 x 750');
    $image->Read('xc:black');

    STDOUT->autoflush(1);
    $r->content_type('image/png');
    $r->send_http_header;

    $image->Write("png:-");
</%init>