###
#it appears there may actually be a way to read the grey channel
#using the "getsamples" routine
my $ycoord = 5;
my $xcoord = 5;
my $sample = $img->getsamples(y => $ycoord, x => $xcoord);
print "we sampled 5,5 to have a value of $sample\n";