my $b = $mw->Button(-command => sub {foo("abc", "123")});