c:>type gp2.pl
use Imager;
my $image_source = "\\c\\perl\\graphics\\" . shift . ".bmp";
my $image = Imager->new;
$image->read(file=>$image_source)
  or die "Cannot load $image: ", $image->errstr;
$width =  $image->getwidth();
$height = $image->getheight();
print "Image dimensions: height = $height, width = $width\n";

$x = 10;
for $y ( 10 .. 15 )
{
  ( $r, $g, $b, $a ) =
     $image->getpixel( x=>$x, y=>$y, type=>'8bit' )->rgba();
  print " shade = $r, $g, $b\n";
}

c:>gp2 d2044
Image dimensions: height = 348, width = 349
 shade = 238, 238, 238
 shade = 255, 255, 255
 shade = 255, 255, 255
 shade = 238, 238, 238
 shade = 238, 238, 238
 shade = 238, 238, 238