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