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

my $image1=new Image::Magick;
$image1->Read("dir1/1.gif","dir1/2.gif");
$image1->Write("dir1.gif");