#!c:/perl/bin
use CGI;
$q1 = new CGI;
print $q1->header;
$firstname = $q1->param('firstname');
$email = $q1->param('email');
print "Sessions - Preserving State
";
print "
";
print "Page 3
";
print "Hello $firstname
";
print "Your email address is: $email
";
print "";
print "";
print "";
print "Enter your post code: ";
print "";
print "";
############################
#!c:/perl/bin
use CGI;
$q1 = new CGI;
print $q1->header;
$firstname = $q1->param('firstname');
$email = $q1->param('email');
$postcode = $q1->param('postcode');
print "Sessions - Preserving State
";
print "
";
print "Page 4
";
print "Hello $firstname
";
print "Your email address is: $email
";
print "Your Postcode is: $postcode
";
print "Hi";