#!/usr/bin/perl

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

