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

my $scr = new MainWindow;
   $scr->configure(-background=>"black");
   $scr->geometry("500x500");
my $canvas = $scr->Canvas(-width,500,-height,500,
   -background=> "black")->pack(-expand, 1, -fill, 'both');
my $image  = $scr->Animation('-format' => 'gif', -file => "tree.gif");
   $canvas->createImage( 250,250, -image=> $image);
   $image->blank($image,1);
   $image->start_animation(40);

MainLoop;
[download]