$submit->bind('<1>' => sub { Submit($p1, $p2, $p3, $p4, $p5); } );


##</code><code>##

$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);
        }
}


##</code><code>##

-command => sub {
    subname ($p1, $p2, $p3, $p4, $p5); 
}