my $maxlength = 10;

  my $mw = tkinit;
  $mw->Entry(-validatecommand => sub { $_[3] + 1 <= $maxlength ? 1 : 0  },
             -validate => 'all')->pack();