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

my $image1=new Image::Magick;
$image1->Read("dir1/1.gif");
my $image2=new Image::Magick;
$image2->Read("dir1/2.gif");
$image1->Composite(image=>$image2,compose=>'plus');
$image1->Write("dir1.psd");