$yscroll->configure(
      -background => "lightgreen", 
      -troughcolor => "black",
      -command => sub {
          print "@_\n";        
        
         my( $type,$delta,$units )= @_;
        
         if($type eq 'scroll'){
          foreach my $list (@listboxes) {
                $list->yview(@_);
            }
          }
    
         if($type eq 'moveto'){
             my $num = 1;
             if( $delta < 0){$num = -1}         
         
           foreach my $list (@listboxes) {
                $list->yview('scroll',$num,'units');
             }
          }
    },

);