#!/usr/bin/perl

use Tk;
$MW = MainWindow->new;
$hello = $MW->Button(
      -text    => 'Hello, world',
      -command => sub { print STDOUT "Hello, world!\n"; exit; },
);
$hello->pack;
MainLoop;