my $length = 6;

$widget->Entry(
    -validate => 'key',
    -vcmd => sub{
                 return 1 if (length($_[0]) <= $length);
                 return 0;
                 }
);
[download]