use strict;
use Tk;

my $scale;
my $haupt = new MainWindow;
my @img;
for my $i (0 .. 1000) {
    my $img;
    eval {
        $img = $haupt->Photo(-file => "anim.gif", -format=> "gif -index $i");
    };
    if (!$@) {
        push @img, $img;
    } else {
        last;
    }
}

my $img_i = 0;
my $label = $haupt->Label(-image=>$img[$img_i])->pack;
$label->repeat(100, sub {
               
    $img_i++;
               
    if ($img_i > $#img) { $img_i = 0 }
               
    $label->configure(-image => $img[$img_i]);
               });
               
    

MainLoop();