Hi
I think you can get it to look nice by padding with blanks:

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

clumsy but it works (as long as you are using a nonpropotional font)
si_lence