use Tk;
use MIME::Base64;

my $mw = MainWindow->new();

my $image_data = 'R0lGODlhBgAGAJEAANnZ2QAAAP///////yH5BAEAAAAALAAAAAAGAAYAAAINjA0HAEdwLCwMKIQfBQA7';
my $image = $mw->Photo(-data => $image_data, -format => 'gif');
$image->write('test.gif', -format => 'gif');
print $image_data."\n";

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

exit;