Help for this page
sub f { my$x;my%x=map{++$x,$_}@_;print"Choose 1 of the $x options:\n",(map{"$_ +=$x{$_}\n"}1..@_),"\nChoose one:\n";chomp($_=<>);$x{$_} } print "Response=".p(qw[ Turkey Steak Apple ]),$/;
www.com | www.net | www.org
No recent polls found
