use strict;
use warnings;
use Tk;

# Das mw erzeugen
my $mw = MainWindow->new(-background => 'lightskyblue1');

$mw -> title('Test');

my $status = localtime(time);

my $btn1 = $mw->Button(-textvariable => \$status,
                       -command => \&doit);

my $btn2 = $mw->Button(-text    => 'ich bin blockiert',
                       -state   => 'disabled');

# display everything
$btn1->pack(-fill => 'both', -expand => 1);
$btn2->pack(-fill => 'both', -expand => 1);

MainLoop;