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 |