#!/usr/bin/perl use strict; use Image::Magick; my $d = shift; $d = '.' unless $d; opendir D, $d; my @d = readdir(D); closedir D; for (@d) { next unless /\.(jpg|jpeg)$/; my $m = Image::Magick->new(); $m->Read($_); my ($cs) = $m->Get('colorspace'); next unless $cs =~ /CMYK/i; $m->Set(colorspace=>'RGB'); $m->Write($_); }