#!/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 "\n";
print "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";