use Tk;
my $mw = MainWindow->new;
$mw->Label(-text => "Foo")->pack;
$mw->after(2000, sub {exit});
MainLoop;