my $imagew = Image::Magick->new;
    my $xw = $imagew->Read($pathwather);
    $image->Composite(image => $imagew, compose => "dissolve", gravity => "Center", dissolve=>50, opacity=>50);
    $image->Set(quality => 50);
        $x = $image->Write("$pathimage/$imagename"); #Сохраняем изображение.