Select Code to Download

my ($sample) = $image->getsamples(x => $x, y => $y, width => 1);

for my $y ( 0 .. $image->getheight() - 1 ) {
  for my $sample ($image->getsamples(y => $y)) {
    # do something with the sample
  }
}