sub make_counter { my $count = shift; sub { ++$count } }
  $mw->Button(-text => "count", -command => &make_counter(0)});

##</code><code>##

  sub make_ref_reporter { my $thing = shift; sub { ref $thing } }
  $mw->Button(-text => "refthing", -command => &make_ref_reporter($mw));