Help for this page

Select Code to Download

Select or download this

my $cookie1 = cookie(
    -name => 'member',
...
    -value => $color,
);
print header( -cookie => [ $cookie1, $cookie2, $cookie3 ] );

Select or download this

my $member = cookie('member');
my $name = cookie('name');
...
...
print qq|<body style="background-color:$color;">|;
print qq|<h1>Welcome back, $member Member $name</h1>|;