Select Code to Download

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