open JPEG,'>','test_image.jpg' || die;
print JPEG $image->jpeg();