or download this
my @opt = (-fg => $fg, -bg => $bg);
push @opt, -font => $newfont if length $newfont;
$mw->Label(-text => "Col. 1", @opt, -padx => 10)->grid(
$mw->Label(-text => "Col. 2", @opt, -padx => 11),
$mw->Label(-text => "Col. 3", @opt, -padx => 11));