That works, but a Canvas is overkill:

#!/usr/bin/perl
use strict;

use Tk;
use Tk::Photo;

my $main = new MainWindow;

my $photo = $main->Photo(-format => 'gif', -file => 't.gif');

$main->Label(-image => $photo)->pack;

MainLoop;
[download]