#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

my $mw = MainWindow->new;

$mw->Button(-text => 'Exit', -command => sub { exit })->pack;
$mw->Button(-text => 'Destroy', -command => sub { $mw->destroy })->pack;

MainLoop;

print "After MainLoop\n";