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

my $scale;
my $haupt = new MainWindow;
my $img = $haupt->Animation('-format' => 'gif', -file => 'icons/sc_7.gif');
my $label = $haupt->Label(-image=>$img)->pack;
$img->blank(1);

$scale = $haupt->Scale(-from => 0, -to => $#{$img->{'_frames_'}}, -orient => "horizontal", -command =>sub { $img->set_image( $scale->get ); } )->pack();

MainLoop();