#!/local/bin/perl require "cgi-lib.pl"; &ReadParse(*input); $objects=$input{'objects'}; $draw=$input{'draw'}; print << "EOF"; Content-type: text/html Nim player page
$objects are left with $draw max per turn: Enter your draw:

EOF