#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;

#usage: script baseimage overlayimage text

my $image = Image::Magick->new;
my $oimage = Image::Magick->new;

my $rc = $image->Read('1Zen16.jpg');
$rc = $oimage->Read('overlay.png');
my $text = "\nlooking for nirvana\n :-)\n";

$rc = $image->Composite(
     geometry => '+30+30',
     compose=>'Atop',
     image => $oimage,
     opacity => '100%',
     tile  => 0,  
      );

$image->Annotate(pointsize => 36,
         fill      => '#ffcc00ff', #last 2 digits opacity in hex ff=max
         text      => $text,
         gravity   => 'South' );


$image->Write("$0.png");

exit;