Yep, the example in the thread listed above worked just fine. I used the Text::PDF::API with the following snippet:

($key,$width,$height)=$pdfapiobj->newImage($file);
$pdfapiobj->placeImage($key,0,0,$width,$height);
[download]

Thanks for your help.