#!/usr/bin/perl
#c12case1.cgi -Location header
use CGI qw(:standard);
use strict;
#declare and assign value to variable
my ($name);
$name = param('Name');
#create Hello page
if($name ne "") {
print "Content-type: text/html\n\n";
print "\n";
print "Phoenix Industries\n";
print "Phoenix Industries
\n";
print "Please return to your browser's back button to return to the form, $name!
";
}
else {
print "Location:
http://~zach3327/public_html/chapter12/c12case1b.html\n\n";
}