#!usr/bin/perl
#mystore1.cgi - contains a form that allows the user to enter form data
print "Content-type: text/html\n\n";
use CGI qw(:standard -debug);
#prevent Perl from creating undeclared variables
use strict;
#declare variables
my ($name, $street, $city, $state, $zip, $gift);
my @gifts = ("Diamond Bracelet", "Tennis Bracelet", "Diamond Earrings", "Pearl Earrings", "Onyx Ring");
#assign input items to variables
$name = param('Name');
$street = param('Street');
$city = param('City');
$state = param('State');
$zip = param('Zip');
$gift = param('Gift');
print "\n";
print "My Store\n";
print "\n";
print "\n";