#!/usr/bin/perl

use strict;
use Image::Magick;

$| = 1;

my $image = Image::Magick->new;
$image->Set (size => '500x750');
$image->Read ('xc:black');

print "Content-Type: image/png\n\n";
binmode STDOUT;
$image->Write ('png:-');
exit 0;

##</code><code>##

<%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;
</%perl>