...
               -fill => 'red') for 1..$cwidth-1;

  $c->configure(-scrollregion => [ $c->bbox('all') ]);  ## <--SOLVED

  MainLoop;