#!/usr/bin/perl
use Tk;

my $main   = MainWindow->new();

$main->Label(-text => 'Anfangs Datum')
         ->grid(-row =>  0, -column =>  $col);
$startmnth = $main->Entry(-width   => 5)
             ->grid(-row => 0, -column => ++$col);
$startdt = $main->Entry(-width   => 5)
                    ->grid(-row => 0, -column => ++$col);
$startyr = $main->Entry(-width   => 5)
            ->grid(-row => 0, -column => ++$col);
$col=0;#spalte wieder auf null
$main->Label(-text => 'End Datum')->grid(-row => 1, -column => $col);
$endmnth = $main->Entry(-width   => 5)
           ->grid(-row => 1, -column => ++$col);
$enddt = $main->Entry(-width   => 5)
            ->grid(-row => 1, -column => ++$col);
$endyr = $main->Entry(-width   => 5)
            ->grid(-row => 1, -column => ++$col);
     22 MainLoop;