Help for this page
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;
www.com | www.net | www.org
No recent polls found