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