use Tk;

my $main = MainWindow->new;

$main->Button(-text => 'Hello',
    -command => [\&printem, "Hello\n"]
)->pack;

$main->Button(-text => 'End',
    -command => [$main => 'destroy']
)->pack;

MainLoop;

sub printem
{
    print shift;
}