my $b = $mw->Button(
  -text => 'start / stop', 
  -command => [ \&startstop, $pb, $status_var, $fromv, $tov, \%timer ],
   )
  ->pack();