Select Code to Download

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

sub ok
{
...
  $win->destroy;
  $notified = 1;
}