image_magick_test.pl

#!/usr/bin/perl

use strict;
use Image::Magick;

my $image = Image::Magick->new;
$image->Set(size=>'300x300');
#$image->ReadImage('xc:white');
#$image->Set('pixel[49,49]'=>'red');

$image->Annotate( text=>'ali', font=>'Helvetica', pointsize=>20, fill=>'black', antialias=>'True', x=>40, y=>20);

my $filename = "/home/system/www/image.png";
open(IMAGE, ">$filename");
$image->Write(file=>\*IMAGE, filename=>$filename);
close(IMAGE);