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

my $mw = MainWindow->new;

my $image = Image::Magick->new;
$image->Read('foo.gif');

# Perform any Magick manipulation here ...

my ($blob) = $image->ImageToBlob();

my $buttonImage = $mw->Photo(-data => encode_base64($blob));
$mw->Button(-image => $buttonImage)->pack;

MainLoop;