BEGIN { push(@INC,"<modulpfad>"); }

use strict;
use warnings;
use Tk;


my $main = new MainWindow;
my $label = $main->Label(-text => 'Checker:');
my $button = $main->Button(
   '-text' => 'Start',
	 '-justify' => "left",
	 '-height' => 3 , '-width' => 10,
	 '-relief' => "raised",
         '-command' => sub {require modules::check; check::SELECT();},
);
my $button2 = $main->Button(
   '-text' => 'Quit',
	 '-relief' => "groove",
   '-command' => sub { exit },
);

$_= localtime(time);
my $button3 = $main->Button(
   -textvariable => \$_,
	 '-relief' => "flat",
   -command => sub { $_ = localtime(time) },
);