#!/usr/bin/perl

use Tk;
$win_main = MainWindow->new();
$win_main->title ("Main Window");
$button = $win_main->Button(text => 'OK', width => 10, height => 4);

$button->pack();
MainLoop();