#! /usr/bin/perl
use warnings;
use strict;
use Tk;
use FindBin;
use lib $FindBin;
use MyApp::Widgets;

my $mw = MainWindow->new();
my $button = MyApp::Widgets::Button($mw, 'klick', sub { $mw->destroy() });
MainLoop();