use GD;
open IMA,"many.jpg" or die "NO file, $!";
binmode IMA;
$image=new GD::Image->newFromJpeg(IMA);
($x,$y)=$image->getBounds();
for $ix (0..$x-1)
{
	for $iy (0..$y-1)
	{
	   ($r,$g,$b)=$image->rgb($im->getPixel($ix,$iy));
	   if($r ne $or)
	   {
	      printf "%2x%2x%2x\n",$r,$g,$b;
	      print "$r, $g, $b\n";
	      #print "$image\n";
	   }
	   $or = $r;
	}
}
close IMA;