#!/usr/bin/perl -w
use strict;
use Tk;
my $main = new MainWindow;
my $canvar = $main ->Canvas;
$canvar->pack;
my $file = 'c:\html\atomic\0.gif';
my $img = $canvar->Photo(
                         'IMG',
                         -file => Tk->findINC($file) );

    $canvar->create(
                    'image',0,0,
                    '-anchor' => 'nw',
                    '-image'  => $img );

    MainLoop;
   __END__