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

my $mw = tkinit();

my $photo = $mw->Photo(-file  => "test.jpg");
my $label = $mw->Label(-image => $photo)->pack();

MainLoop;