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