<%flags>
 inherit => undef
</%flags>

<%init>
    use Image::Magick;
    use File::Temp;

    my $image = Image::Magick->new;
    $image->Set(size => '500 x 750');
    $image->Read('xc:green');

    my $temp = File::Temp->new( DIR => '/tmp', UNLINK => 1);
    my $temp_file_name = $temp->filename; 

    $image->Write("png:$temp_file_name");

    $r->content_type('image/png');
    $r->sendfile($temp_file_name);

    # File::Slurp and print could be used instead of $r->sendfile
    #
    #use File::Slurp; 
    #print read_file($temp_file_name);

</%init>