use strict;
use warnings;
use Image::Magick;

# Bild einlesen
my $orig = Image::Magick->new();
$orig->Read('kuerbis.jpg');

# Kopie machen fuer die Modifikationen
my $dest = $orig->Clone();

# Bildmaße bestimmen
my ($width, $height) = $dest->Get('width', 'height');

for my $j (0 .. $height-1) 
  {
  for my $i (0 .. $width-1) 
    {
    # originale Farbe ermitteln
    my ($rot, $gruen, $blau) = $orig->GetPixel( x=>$i, y=>$j );

    # Pixelwert veraendern, leicht aufhellen
#    $rot = $rot * 1.2; # Rot
#    $gruen = $gruen * 1.2; # Gruen
#    $blau = $blau * 1.2; # Blau

    my $tmp = $rot;
    $rot = $gruen;
    $gruen = $blau;
    $blau = $tmp;
    

    # Pixel setzen
    $dest->SetPixel(x=>$i,y=>$j,color=>[$rot,$gruen,$blau]);
    }
  }

# und ausgeben
$dest->Write('kuerbis_fx1.jpg');
$dest->Write('win:');