($red,$green,$blue,$opaque) = split(/,/,$image->Get("pixel[$x,$y]"));

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Image::Magick;

# Simuate background webcam picture... :)
my $image1 = Image::Magick->new;
$image1->Set(size=>'100x100');
$image1->ReadImage('xc:black');
$image1->Draw(stroke=>'green', primitive=>'rectangle', points=>'5,5 95,95');

# Textbackground image
my $image2 = Image::Magick->new;
$image2->Set(size=>'100x20');
$image2->ReadImage('xc:blue');

# Make composite image of background and a 60.5 % transparent text-background
$image1->Composite(compose=>'Blend', image=>$image2, x=>0, y=>0, opacity=>60.5);

# Add un-transparent text atop on background
$image1->Annotate(font=>'@c:/windows/fonts/arial.ttf', pointsize=>15, stroke=>'red', text=>'Whoo',x=>30,y=>15,fill=>'red');

# Write image
$image1->Write('x.png');