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 <http://www.imagemagick.org/script/command-line-processing.php#geometry>
$endpic->Composite(
    image    => $pic2,
    compose  => 'add',
    geometry => '50x65+35+65'
);
# Bild speichern
$endpic->Write('ergebnis.jpg');