Doch, mit Tk::Animation::new() wird das GIF auseinander genommen und die einzelnen Frames in @{$self->{_frames_}} eingetragen. set_image() macht schon was, aber leider bleibt das letzte Bild (wegen der Transparenz oder der Disposal-methode) sichtbar.

Deine Lösung mit add_label hat das Problem, dass es nur mit Animationen funktioniert, die in ein Label eingebettet werden. Man kann Animationen aber überall verwenden, z.B. innerhalb eines Text-, Canvas- oder Menu-Widgets.