my $canvas = $frame2 ->Canvas(
                              -bg=>COLOR,
                              -height=>$height,
                              -width=>$width,
                              )->pack();