$frame->Button(
   -text => " Zoom Out ",
   -width => 10,
   -command => sub {
        $scale*=0.8;
        $initial_width *= $scale;
        foreach  $i (0 .. 3) {
            $sc[$i]->scale(qw/all 0 0 .8 1/);
            $sc[$i]->configure(-scrollregion => [0, 0, $initial_width, 125]);
        }
    }
)->pack(qw/-side left -padx 25/);
$frame->Button(
   -text => " Zoom In ",
   -width => 10,
   -command => sub {
        $scale*=1.25;
        $initial_width *= $scale;
        foreach  $i (0 .. 3) {
            $sc[$i]->scale(qw/all 0 0 1.25 1/);
            $sc[$i]->configure(-scrollregion => [0, 0, $initial_width, 125]);
        }
    }
)->pack(qw/-side left -padx 25/);