use strict;
use warnings;

use Image::Magick;

my $label=Image::Magick->new(size=>"600x600",);
$label->Read("xc:white");
$label->Draw(primitive=>'line',points=>"300,100 300,500",stroke=>'#600');
$label->Draw(primitive=>'line',points=>"100,300 500,300",stroke=>'#600');
$label->Draw(primitive=>'rectangle',points=>"100,100 500,500",fill=>'none', stroke=>'#600');
my $x = $label->Annotate(
    text=>"North West",
    x=>50,
    y=>50,
    pointsize=>40,
    font=>'C:\WINNT\Fonts\times.ttf',
);

die "$x" if "$x";

$label->Write("annot.png");