my $scr = new MainWindow;
$scr->FullScreen(1);
$scr->configure(-background=>"yellow");

my $canvas = $scr->Canvas(
   -background=>"blue",
   -width=>$scr->width,
   -height=>$scr->height
)->pack( -side=>"top" );
        
my $tree = $canvas->Animation(
   -format => 'GIF', 
   -file => 'tree.gif'
)->start_animation( 20 );