$mw->Entry(-validatecommand => sub { length $_[0]  <= $maxlength},