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

my $mw = MainWindow->new();

#my $image_data = 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAINjA0HAEdwLCwMKIQfBQA7';
my $image_data = 'R0lGODlhBgAGAPABAAAAAP///yH5BAEAAAEALAAAAAAGAAYAAAIJhB0Xq+y5YGQFADs=';
print $image_data."\n";

my $image = $mw->Photo(-data => $image_data, -format => 'gif');
$image->write('test.gif', -format => 'gif');

my $image_new = $mw->Photo( -file => 'test.gif', -format => 'gif' );

my $img=Image::Magick->new();
$img->BlobToImage($image_new->data(-format => 'XPM'));

#$img->Set(magick => 'gif');
#$img->Write('test2.gif');

my $image_data_new = encode_base64($img->ImageToBlob(magick => 'gif'));
print $image_data_new;

exit;