$mw->LabEntry(-label=>' ' x (7 - length 'Begin')  . 'Begin' , -labelWidth=>7, -labelPack=>[-side=>'left', -anchor=>'w'])->pack();
$mw->LabEntry(-label=>' ' x (7 - length 'End')  . 'End', -labelWidth=>7, -labelPack=>[-side=>'left', -anchor=>'w'])->pack();