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