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