Select Code to Download

for my $x ( 14, 15 )
{
...
    print " shade( $x, $y ) = $r, $g, $b\n";
  }
}

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

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

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

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

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

 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