#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::JPEG;

my $main = MainWindow->new();

my $image = $main->Photo('-format' => 'jpeg', -file => 'http://www.somewebsite/photos/image1.jpg');
my $label= $main->Label(-image => $image)->pack();

MainLoop