use strict;
use Image::Magick;

my ($image, $x);
 
$image = Image::Magick->new;
$x = $image->Set(size=>'100x100');  warn "$x" if $x;
$x = $image->ReadImage('xc:white'); warn "$x" if $x;

my $text = 'Works like magick!';
$x = $image->Annotate(text=>$text); warn "$x" if $x;
$x = $image->Write('x.png');        warn "$x" if $x;
undef $image;