Jarrod Accessories

#!/usr/bin/perl #c11case2a.cgi - Allows user to enter info use CGI qw(:standard -debug); #print “Content-type: text/HTML\n\n”; #prevent Perl from creating undeclared variables use strict; #declare variables and assign variables my ($item, $C_basket, @basket); #make cookies $C_basket = cookie( -name => "Basket", -value => "@basket", -path =>"../../cgi-bin/chap11"); #send cookies print header(-cookie => $C_basket ); #display Web page Print < Jarrod Accessories

Jarrod Accessories

Enter Your Information

Name
Address
City
State
Zip Code

addressForm ##

##

 Bareword found where operator expected at c11case2a.cgi line 29, near "Jarrod"
	(Missing operator before Jarrod?)
Bareword found where operator expected at c11case2a.cgi line 32, near "<H3>Enter"
	(Missing operator before Enter?)
String found where operator expected at c11case2a.cgi line 33, at end of line
	(Missing semicolon on previous line?)
syntax error at c11case2a.cgi line 29, near "HEAD>"
Can't find string terminator '"' anywhere before EOF at c11case2a.cgi line 33.

##</code><code>##

 #!/usr/bin/perl
#c11case2b.cgi - Displays user info
print “Content-type: text/HTML\n\n”;
use CGI qw(:standard);

#prevent Perl from creating undeclared variables
use strict;
#declare and assign variables
my ($name, $address, $city, $state, $zipcode, $item, $rec, @items);
my @purchases = ( “Gold Bracelet”,
		      “Silver Bracelet”,
		      “Diamond Necklace”,
		      “Ruby Earrings”,
		      “Pearl Ring”);

$name		= param(‘Name’);
$address	=param(‘Address’);
$city		=param(‘City’);
$state		=param(‘State’);
$zipcode	=param(‘Zipcode’);

#get order from cookie
@items = split (/ /, cookie (‘Basket’));






#display order confirmation
print "<HTML>\n";
print "<HEAD><TITLE>Jarrod Accessories\n";
print "\n";
print "Jarrod Accesories \n";
print “$name, Thank you for your order of:

\n”;
foreach $item (@items) {
print “$purchases [$item]
\n”;
}
print “
It will be shipped to: 

\n”;
print “$address
\n”;
print “$city,$nbsp; $state $nbsp; $zipcode
\n”;
print "\n”;
print “\n";


##

##

 Bareword found where operator expected at c11case2b.cgi line 10, near "my @purchases = ( "Gold"
  (Might be a runaway multi-line "" string starting on line 3)
	(Do you need to predeclare my?)
syntax error at c11case2b.cgi line 10, near "my @purchases = ( "Gold Bracelet"
Unrecognized character \xE2; marked by <-- HERE after d Bracelet<-- HERE near column 33 at c11case2b.cgi line 10.