#!/usr/bin/perl -w

use strict;
use Image::Magick;

# Simulate background picture... :)
my $image1 = Image::Magick->new;
$image1->Set(size=>'100x100');
$image1->ReadImage('xc:orange');

# Textbackground image
my $image2 = Image::Magick->new;
$image2->ReadImage('testopaq.png');

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

$image1->Display;