$mw->Button(-text => "text", -command => sub { print "demo closure" });