$yscroll=$mw->Scrollbar()->pack(-fill=>'y', -side=>'right',);
$yscroll->configure( -command => [ \&ScrollAll, $yscroll, [$p1, $p2, $p3, $p4, $p5]]);
sub ScrollAll {
    my ($sb, $wigs, @args) = @_;
        foreach my $w (@$wigs) {
            $w->yview(@args);
        }
}