my $image = GD::Image->newFromPng("dateiname.png");
my ($r,$g,$b) = $image->rgb($image->getPixel(20,100));