#!/usr/local/bin/perl -w

use strict;
use Tk;

my $mw = MainWindow->new;
my $image = $mw->Photo(-file    => 'Xcamel.gif',
                       -format  => 'gif');
$mw->Label(-image => $image)->pack;
MainLoop;