When an event occurrs, I'm poping up a window that has a button. When I click the button I'd like to kill the window and continue processing.

How do I kill the window without killing the program? See sub ok below.

Thanks.

use strict;
use warnings;
use Tk;

my $notified = 0;
notify();
continue_processing();

exit 0;

sub notify
{
  my $win = new MainWindow;
  $win->Label(-text => 'Window!')->pack;
  $win->Button(-text => 'OK', -command => sub{ok()})->pack;
  Tk::MainLoop();
}

sub ok
{
  $notified = 1;
  Tk::exit(0);
}

sub continue_processing()
{
  print "Here I am $notified\n";
}
[download]