Someone

#!/usr/bin/perl
use Tk;
use Tk::Photo;
use Tk::JPEG;
use MIME::Base64;

open(FILE,"<scr.jpg");
while (<FILE>) {
        $image = "$image$_";
}
close(FILE);
$image_use = encode_base64($image);

$top = new MainWindow;
$top->configure(-background=>'#333333',-title=>'test');
$top->geometry('300x300+100+300');

$photo = $top->Photo(-data=>$image_use,-format=>'jpeg');
$top->Label(-image=>$photo)->pack();

MainLoop;