my @color = $image->getpixel( x => [ 14, 15 ], y => [ 14, 15 ] );
for my $clr ( @color )
{
  my ( $r, $g, $b, $a ) = $clr->rgba();
  print " shade = $r, $g, $b\n";
}