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

my $x;
my $null=Image::Magick->new;
my $img=Image::Magick->new;

$null->Set(size=>'20x20');
$x=$null->ReadImage('xc:blue');
warn "$x" if "$x";

$img->Set(size=>'640x470');
$x=$img->ReadImage('1z-squatch.gif');
warn "$x" if "$x";

$img->Composite(image=>$null,
  compose=>'Atop',
  gravity=>'Center',
 );
$img->Write("$0.gif");