my $STO = $mw->Button(
                          -text => 'STO',
                          -command => sub{$sto='s'},
                          -width =>'1',
                          -height =>'1',
                          -foreground => 'white',
                          -background => 'black'
                          )->pack;
               $STO->place(-x=>100 + $xxx,-y=>'170');