my $img = new Image::Magick;
$img->Read(filename => "orig/$path/$base.$ext")
	and die("Kann Original-Bild nicht lesen: $!");
$img->Set(compression => "JPEG");
$img->Set(magick => 'jpg');
$img->Set(quality => 90);
$img->Write(filename => "target/$path/$base.jpg");