#$image->Write(file=>\*IMAGE2, filename=>$filename_new);
$image->Write($filename_new);