$mw -> Button( -text    => 'Count', -command => sub { ++$count; $mw -> update; } ) ->pack();