You might want to look a little closer. GD::getPixel does what you want to do, I think. Combine it with GD::rgb to get the rgb color at that point, like so:

my $index = $myImage->getPixel(20,100);
my ($r,$g,$b) = $myImage->rgb($index);
[download]

Hope this helps.

perl -e 'print "I love $^X$\"$]!$/"#$&V"+@( NO CARRIER'