use MIME::Base64;

my $encoded = MIME::Base64::encode(slurpfile("image.jpg"));
my $oxml = "<?xml version=\"1.0\" standalone=\"yes\"?> <data image=\"$
+encoded\"/>\n";;


#-----------------------------------------------------
#-----------------------------------------------------
use XML::Twig;

                my $twig= XML::Twig->new(); # XML Parser
                $twig->parse($oxml);    
                my $root;
                $root = $twig->root();

my $xmlencoded = $root->att('image');
#-----------------------------------------------------
#-----------------------------------------------------


use Tk;
use Tk::JPEG;
my $mw = MainWindow->new();

my $image = $mw->Photo(-data=>$xmlencoded);

my $lab = $mw->Label(-image=>$image)->pack;
$mw->update();

MainLoop;

sub slurpfile 
{
    open(IN,  "< $_[0]") or die "can't open $_[0]: $!";
    binmode (IN);
    seek(IN, 0, 0); sysread (IN, my $slurp, -s IN);
    close(IN);
    return $slurp;
}
[download]