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

my $data_in='R0lGODlhAQABAJEAANnZ2f///////////yH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==';

my $img=Image::Magick->new();
$img->BlobToImage(decode_base64($data_in));
my $data_out=encode_base64($img->ImageToBlob(magick => 'gif'));

print "IN : $data_in\n";
print "OUT: $data_out\n";