Select Code to Download

use vars qw($InputText);
$InputText = "";
...
# my $guess = int ($input->get);
my $guess = int( $InputText );
$InputText = ""; # empty it

my $input = $mw->EntryCheck(
  -textvariable => \$InputText,
  -pattern      => qr~\d~,
)->form;