#!/usr/bin/perl -w
    use strict;
    use Tk;
    my $main = new MainWindow;
    my $canvar = $main ->Canvas;
    $canvar->pack;
    my $file = 'image.gif';
    my $img = 
     $canvar->Photo( 'imggif', 
                     -file => $file );

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

    MainLoop;