in reply to tk::Entry substitute with validate

Modify -validatecommand to accomplish that

In Section Seekers of Perl Wisdom