#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Photo;
use Tk::JPEG;


my $mw     = tkinit();
$mw->geometry( '600x845' );
my $image  = './proxy.jpg';
my $photo  = $mw->Photo( 'test', -height => 845, -width => 600, );
$photo->read( $image );
$mw->Label( -image => $photo )->pack;

MainLoop;