......
$x = $image->Write($photo);
undef @$image;
......