use Tk;
require Tk::Photo;
require Tk::JPEG;  

my $mw=new MainWindow;
my $image="http://example.com/background.jpg";
my $shot=$mw->Photo(-file=>"$image",-format=>'jpeg');
$mw->Label(-image=>$shot)->pack;
MainLoop;