#!/usr/bin/perl require 5.003; #push(@INC,"/www/cgi-bin"); push(@INC,"/home/httpd/cgi-bin"); require 5.003; require "cgi-lib.pl"; #-------------------------- What This Does ---------------------------- # Input data: users first_name and age # Output: age + 11 #---------------------------- Main Program ---------------------------- # The subroutine &ReadParse" (from the external utility program # cgi-lib.pl) gets the data that was just submitted and makes it # available to you. For instance $in{first_name} has the first name. &ReadParse; # The subroutine "&PrintHeader" (also from cgi-lib.pl) is essential # to print output to the user's screen. print &PrintHeader; $Name = $in{first_name}; $age = $in{age}; $age=$age+11; print <<"alice"; # Prints through the line with alice
I've got to go back to work now. Bye Bye. alice