#!/usr/bin/perl
use GD;

$image = GD::Image->newFromJpeg('DSC04418.jpg');
$small = GD::Image->newFromJpeg('pre_DSC04225.jpg');
($width, $height)=$image->getBounds( );
$newimage->copyMerge($image, $small, 1, 1, 0, 0, $width, $height, 50);

$quality = 100;
$jpegdata = $newimage->jpeg($quality);

open(BILD,">./meinbild.jpg");
binmode BILD;
print BILD $jpegdata;
close(BILD);