#!/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($_);
}