Glad to hear you got it working 😊

From the earlier comments about Indirect Object Syntax, I would suggest you change:

$outim  = new GD::Image($width, $height);
...
@bounds = new GD::Image->stringFT($fgcolor,$fontname,$ptsize,$angle,$x
+,$y,$string);
[download]

$outim  = GD::Image->new($width, $height);
...
@bounds = GD::Image->new->stringFT($fgcolor,$fontname,$ptsize,$angle,$
+x,$y,$string);
[download]

As a separate observation, I find this a little difficult to read and unneccesasy

$string     = ucfirst($first) . ($middle ne '' ? ' ' . ucfirst($middle
+) : '') . ' ' . ucfirst($last);
[download]

$string     = ucfirst($first) . ($middle ? ' ' . ucfirst($middle) : ''
+) . ' ' . ucfirst($last);
[download]

Because of the data I deal with, I also force names to be lowercase before adding the initial capital. You may not need to depending on your data and whether you consider names having legitimate capitals in them being a problem - like "O'Neil" (I should see if a module exists to deal with these and write one if not)

$string = ucfirst(lc($first));
[download]