$image->Read('How long am I');
($text_width) = $image->Get('width');

##</code><code>##

use Image::Magick;

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

my $ps = 15;
$image->Set(pointsize=>$ps);
$image->Read("Label: Test ");
my $l = $image->Get('width');
print $l, "\n";