#!/usr/bin/perl

use Image::Magick;
for (@ARGV) {
    my $p = Image::Magick->new();
    $p->Read($_);
    s/\.[^.]+$/.jpeg/;
    $p->Write($_);
}