#!/usr/local/bin/perl -w
use Tk;
use Tk::widgets qw(Photo Animation);
use Cwd;
   
$dir = fastgetcwd;

my $mw = MainWindow->new;

my $file = "$dir/test.gif";

my $img = $mw->Animation('-format' => 'gif',-file => $file);

my $lab = $mw->Label(-image => $img)->pack();

$mw->overrideredirect(1);
MainLoop;