increment.cgi
#!/usr/bin/perl if ($ENV{'REQUEST_METHOD'} eq 'GET') { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); if ($ENV{'QUERY_STRING'}) { @getpairs =split(/&/, $ENV{'QUERY_STRING'}); push(@pairs,@getpairs); } } else { print "Content-type: text/html\n\n"; print "<P>Use Post or Get"; } print "Content-type: text/html\n\n"; $counter = $formdata{'counter'}; ++$counter; print "Your number incremented by 1 is $counter"; $watch = ++$counter; print "<BR>Your number, incremented again by 1, is now $counter. If we store that operation, its value is also $watch."; $counter = $formdata{'counter'}; print "<HR>Let's start over, with your original number $counter"; $counter++; print "<BR>Again, your number incremented by 1 is $counter"; $watch = $counter++; print "<BR>Now we store the value of your number in a second variable, which is now equal to $watch, and then we increment your number again. It's now $counter.";