#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw/$Bin/;
use GD;

my $img = GD::Image->new($Bin . '/red.bmp');
my $index=$img->getPixel(10,10);                #<---Denke mal das du dort das ";" vergessen hast! ohne geht es auch nicht
my ($r,$g,$b) = $img->rgb($index); 
print "$r $g $b";