Try this...

#!/usr/bin/perl

use strict;
use warnings;
use Tk::Animation;

my $gif = 'C:/wamp/bin/Perl/bin/ajax_loader.gif';
my $mw = MainWindow->new;
my $img = $mw->Animation(
    '-format' => 'gif',
    '-file'   => $gif,
);
$mw->Label('-image' => $img)->pack;
$img->start_animation;
$mw->MainLoop;
[download]