#!/usr/bin/perl
use Tk;

my $mw = MainWindow->new;
$mw->Label( -text => "foo" )->pack;
$mw->Button( -text => "bar", -font => "times", -command => sub { exit } )->pack;

MainLoop;