use Tk;
use Image::Magick;

my $image = Image::Magick->new;
$image->Set(size=>'1014x636');
$image->ReadImage('xc:white');

$image->Annotate(
	        text => "Testtext",
		family => Arial,
		pointsize => 18,
		x => 5,
		y => 5,
		stroke => "yellow",
		strokewidth => 2
		);

$image->Write('test.png');

exit;