$x = $image->Write('x.png'); warn "$x" if "$x";