Bastard,
Thanks for posting this. One comment though...the GD::Image->new() method expects numeric dimensions as args for a brand new image. Your code worked nicely when I changed line 9 to

my $image = GD::Image->newFromJpeg($imagename) || die "Could not open image: $imagename\n";

HTH
jg
_____________________________________________________
"The man who grasps principles can successfully select his own methods.
The man who tries methods, ignoring principles, is sure to have trouble.
~ Ralph Waldo Emerson