$image->Write($outfile.jpg, compression => 'JPEG', quality=>.5);
# I think it goes 0 to 1 for quality, ImageMagick has minimal
# perl docs, so groups.google.com search for examples