use strict;
use warnings;

use Tk;
my $mw = MainWindow->new;
$mw->Button (-text => "Hello World!", -command => sub {$mw->destroy()})->pack;
MainLoop;

print "done with the GUI\n";