#!/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);

Can't call method "copyMerge" on an undefined value at /home/wkonline/bilder.cgi line 10.

$newimage = GD::Image->copyMerge($image, $small, 100, 100, 0, 0, $width, $height, 50);

Usage: GD::Image::copyMerge(destination, source, dstX, dstY, srcX, srcY, w, h, pct) at /home/wkonline/bilder.cgi line 16.

$newimage = GD::Image->copyMerge($image, $small, 100, 100, 0, 0, $width, $height, 50);

GD::Image->copyMerge(GD::Image=SCALAR(0x8151dbc), GD::Image=SCALAR(0x815bd88), 100, 100, 0, 0, 375, 500, 50);

        $myImage = new GD::Image(100,100);
        ... various drawing stuff ...
        $redImage = new GD::Image(50,50);
        ... more drawing stuff ...
        # copy a 25x25 pixel region from $srcImage to
        # the rectangle starting at (10,10) in $myImage, merging 50%
        $myImage->copyMerge($srcImage,10,10,0,0,25,25,50);

$image->copyMerge($small, 100, 100, 0, 0, $width, $height, 50);