$win->Button(-text => 'OK', -command => [\&ok, $win])->pack;