$mw->Button(-text => 'Exit', -command => sub {$mw->destroy})->pack;
[download]

no need for closures

-command => sub { $Tk::widget->toplevel->destroy }
[download]

-command => 'exit'
[download]