#!/usr/bin/perl
use Image::Magick;
use CGI qw(:all);
use CGI::Carp qw/fatalsToBrowser/;
use strict;

my $cgi =CGI->new();
my $image = Image::Magick->new();

open(IMAGE, 'elbu.jpg');
  $image->Read(file=>\*IMAGE);
close(IMAGE);


$image->Thumbnail(geometry => 'geometry', width => 200, height => 200);

my ($height, $width) = $image->Get('height', 'width');
my $xy = $width.'x'.$height;

$image->Annotate(font =>'arial.ttf',
                 stroke => 'red',
                 fill => 'blue',
                 gravity => 'SouthWest',
                 geometry => $xy,
                 pointsize => 20,
                 text => 'Froschpopo',
                );

print $cgi->header('image/jpeg');
binmode STDOUT;
print $image->Write('jpeg:-');