my $image;

print "Creating composite...\n";

my @imgfiles = glob("img*.gif");

my $compos = Image::Magick->new(size=>'3200x1324');

foreach my $img (reverse @imgfiles) {
        print "\t Compositing image $img... ";
        $image = Image::Magick->new();
        $image->Read($img);
        $image->Quantize(colors=>2,colorspace=>"Gray");
        $image->Negate();
        $image->Colorize(fill=>"rgb(".(pop @colors).")");
        $image->Negate();
        $image->Transparent(color=>"white");

        push @$compos,$image;
        undef $image;
        print "composed.\n";
}

$compos->Flatten();
$compos->Write('outcomp.gif');