use Tk;

my $mw = MainWindow->new;
$mw->protocol(WM_DELETE_WINDOW => sub {
   print "Exiting appliction!\n";
   exit;
});

MainLoop;