#!/usr/bin/perl


use GD;
use Tk;
use Tk::JPEG;
use MIME::Base64;


my $im = GD::Image->new('image.jpg');
my $img = encode_base64($im->jpeg());
my $main = MainWindow->new();
my $image = $main->Photo("button", -data => $img, -format => 'jpeg');
my $label= $main->Label(-image => "button");
$label->grid(-in => $main);


MainLoop;