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

##</code><code>##

Image dimensions: height = 348, width = 349
 shade( 14, 14 ) = 255, 255, 255
 shade( 14, 15 ) = 221, 221, 221
 shade( 15, 14 ) = 170, 170, 170
 shade( 15, 15 ) = 51, 51, 51

##</code><code>##

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";
}

##</code><code>##

Image dimensions: height = 348, width = 349
 shade = 255, 255, 255
 shade = 51, 51, 51

##</code><code>##

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

##</code><code>##

Image dimensions: height = 348, width = 349
 shade = 204, 204, 204
 shade = 170, 170, 170
 shade = 136, 136, 136
 shade = 187, 187, 187
 shade = 153, 153, 153

##</code><code>##

 shade( 13, 17 ) = 204, 204, 204
 shade( 15, 14 ) = 170, 170, 170
 shade( 17, 18 ) = 136, 136, 136
 shade( 17, 19 ) = 187, 187, 187
 shade( 20, 15 ) = 153, 153, 153