<%shared>
return unless $r->uri =~ /\.png$/;
# die "made it here!";
use GD;
my $image = new GD::Image(100, 100);
my $red = $image->colorAllocate( 255, 0, 0);
$image->filledRectangle( 25, 25, 75, 75, $red);
$m->clear_buffer;
$r->content_type('image/png');
$m->print($image->png);
$m->abort(200);
</%shared>