sub getUserEntry { print header( "text/html" ), start_html( "User Validation" ), $header, h3( "Entry Validation" ), start_form, hr, p("Please enter the characters in the image at the bottom of the page"), textfield( -name => "UserEntry", -size => 15 ), br, br, submit( -name => "CodeValidation", -value => " Enter the Code " ), br, br, hr; print end_form; print "\"; print $footer; print end_html; return; } #### If the param( 'CategoryRequest' ) exists: create the captcha; get the user's response; If the user's response exists: <-- but this is never true check it against the real answer; do other things based on results of check