#!/usr/local/bin/perl

require 'cgi-lib.pl';

#############################################################################
#
#   MAIN FUNCTION
#
#############################################################################

#
# Parse arguments passed by http server
#
  $result = &ReadParse(*input);

  $firstname = $input{"A01-First Name"};
  $lastname = $input{"A02-Last Name"};
  $address1 = $input{"A03-Address"};
  $address2 = $input{"A04-City/State/Zip"};
  $email = $input{"A05-Email Address"};
  $gender = $input{"A06-Gender"};
  $age = $input{"A07-Age"};

  print &PrintHeader; 
  print "
    Return value = $result <P>
    First Name: $firstname <BR>
    Last Name: $lastname<BR>
    Address: $address1 <BR>
    City/State/Zip: $address2 <BR>
    Email: $email <BR>
    Gender: $gender <BR>
    Age: $age <BR>
 ";

 exit;

