#!/usr/bin/perl
my $img = new Image::BMP;
$img->open_file('/root/a.bmp');
my ($r,$g,$b) = $img->xy_rgb(10,10);