Sign Up

Sign up and choose your options

Name
Select MemberShip Type	Life Annual Fee Trial
Choose Background Color

##

#!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,
"Thank you. Your data has been recorded",
"See member page",
end_html;

##

##

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

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

my @ara = split (/ /,cookie("member"));  #### splits on spaces into array 


if($ara[0] =~ /Free Trial/){
print header, start_html;
print "";
print "Welcome back, ".$ara[0]." ".$ara[1]." Member ".$ara[2]." ".$ara[3].""; 
print end_html;
	
}else{
print header, start_html;
print "";
print "Welcome back, ".$ara[0]." Member ".$ara[1]." ".$ara[2].""; 
print end_html;
}