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

# Create the main window
my $main = MainWindow->new();

open (FILE, 'd:\test\found.B64') or die "Cannot open found.b64: $!";
my $encoded = join "", <FILE>;
close FILE;
my $im = GD::Image->newFromJpegData($encoded);

##</code><code>##

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

# Create the main window
my $main = MainWindow->new();

open(JPG, 'd:\test\found.b64') or die "Cannot open found.b64: $!";
my $jpegdat;
read JPG, $jpegdat, -s JPG;
my $im = GD::Image->newFromJpegData($jpegdat);