$mw->Button(-text => 'Quit', -command => sub { print 'Bye!'; exit; })->pack;