Select Code to Download

my @redmap = map {  int( $r * $_)  } 0..255;
my @greenmap = map {  int( $g * $_)  } 0..255;
...
 $newimg->map( red=>\@redmap, green=>\@greenmap, blue=>\@bluemap );

 $newimg->filter(type=>'contrast', intensity=> $c);

my @redmap = map {  int( $r + $_)  } 0..255;