#!c:\Dwimperl\perl\bin\perl.exe

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;

my $name = param('name');
my $membership = param('membership');
my $color = param('color');

my @members = ('Life', 'Annual', 'Free Trial');
my %colors =(pk => 'Pink',
             cy => 'Cyan',
             ma => 'Magenta',
             wh => 'White',
             go => 'Gold',
             bl => 'Blue',);
             


my @newmembers =($members[$membership], $name, $colors{$color});


my $mem = cookie(-name => "member",
                       -value => "@newmembers",
                       -path => "/",
                       -expires => "+1M" );

print header( -cookie => [$mem] ),
start_html,
"<h2>Thank you. Your data has been recorded</h2>",
"<a href='membership.cgi'>See member page</a>",
end_html;