#!/usr/bin/perl
use Image::Magick;

$q = Image::Magick->new();
$q->Set(size => '80x20');
$q->Read('xc:white');
$q->Annotate(
   text      => 'Hi There',
   font      => '/usr/share/fonts/truetype/freefont/FreeSerif.ttf',
   pointsize => 18,
   fill      => 'black',
   gravity   => 'Center',
);
$q->Write('whatever.png'); # who needs error checks?!? ;)