my $blob = $$ref2{'Bild'}; my $new_image = Image::Magick->new(depth=>32); $new_image->BlobToImage($blob); print $new_image->Get('depth')."\n"; my ($image_width, $image_height) = $new_image->Get('width', 'height'); $new_image->Scale(width=>($image_width*($$ref{'Zoom'}/100)), height=>($image_height*($$ref{'Zoom'}/100))); $image->Composite(image=>$new_image, x=>$$ref{'X'}, y=>$$ref{'Y'}, zoom=>$$ref{'Zoom'}, depth=>32);