#!/usr/local/bin/perl
  use Image::Magick;

  my($image, $x);

  $image = Image::Magick->new;
  $x = $image->Read('im1.gif', 'im2.gif', 'im3.gif', 'im4.gif');
  warn "$x" if "$x";

  $x = $image->Append(stack=>{true,false});
  warn "$x" if "$x";

  $x->Write('appended.gif');
  warn "$x" if "$x";