I tried your code, and it seems to work well except the image (jpg) I use keeps showing up as all black. I used your code verbatim.
Is there something I need to do differently on a Windows system? What OS did you use? Help from anyone?
I use this piece of code in pVoice (see the code for that) and that works on both Win32 and Un*x platforms. So I think your code or your image may be the problem. Please compare your code to the code of pVoice and see what the problem is.
I posted in Wisdom of the Sages to see if anyone else had the same problem as I had with the black image.
I got a response: You can read it at: http://www.perlmonks.org/index.pl?node_id=132314&lastnode_id=132292
I guess there was an error with the image when using the "GD::Image->new" line. His suggestion worked great when I replaced it with the "->newFromJpeg" line.
Just thought you may like to know, the final outcome.