$main   = MainWindow->new();

$main->Label(-text => 'Anfangs Datum')->pack(); 
$startmnth = $main->Entry(-width   => 5)
            ->pack();
$startdt = $main->Entry(-width   => 5)
            ->pack();
$startyr = $main->Entry(-width   => 5)
            ->pack();

$main->Label(-text => 'End Datum')->pack(); 
$endmnth = $main->Entry(-width   => 5)
            ->pack();
$enddt = $main->Entry(-width   => 5)
            ->pack();
$endyr = $main->Entry(-width   => 5)
            ->pack();