use Tk;
use Tk::Photo;
use Tk::JPEG;
use LWP::Simple;
use MIME::Base64 qw(encode_base64);

my $mw=new MainWindow;
my $data = encode_base64 get('http://tinyurl.com/oyzuyjt');
my $shot=$mw->Photo(-data=>$data,-format=>'jpeg');
$mw->Label(-image=>$shot)->pack;
MainLoop;