#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::Photo;
use Tk::JPEG;
my $file="c:/pictures/2005/guns/DSC00101.JPG";
my $w=new MainWindow;
my $image=$w->Photo(-file=>"$file", -format => 'jpeg');
my $b = $w->Button( -image => $image )->pack();
$b->configure(-image => $image);
&MainLoop;