use Image::Magick;
my $img = Image::Magick->new;
my $rv = $img->Read('/tmp/foo.jpg');
die "$rv" if "$rv";
$rv = $img->Resize(geometry=>'50%');
die "$rv" if "$rv";
$rv = $img->Write('/tmp/bar.jpg');
die "$rv" if "$rv";