use Tk::Animation
my $img = $widget->Animation('-format' => 'gif', -file => 'somefile.gif');

$img->start_animation($period);
$img->stop_animation;