use 5.010; use Image::Magick; # Bild $pic1 = Image::Magick->new(); $result = $pic1->ReadImage('pic1.gif'); warn "$result" if "$result"; # Wasserzeichen/Logo $pic2 = Image::Magick->new; $result = $pic2->ReadImage('pic2.gif'); warn "$result" if "$result"; # Bild zusammensetzen $endpic = $pic1->Clone(); # pic2 in Größe 50x50 bei Position 35x65 einpassen # zu offsets siehe $endpic->Composite( image => $pic2, compose => 'add', geometry => '50x65+35+65' ); # Bild speichern $endpic->Write('ergebnis.jpg');