#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw/$Bin/;
use Image::Magick;

my $img = Image::Magick->new($Bin . '/rot.bmp');
my ($r,$g,$b) = $img->GetPixel(x=>10,y=>10);
print "$r $g $b";