&setThem($username,$logon,$hcolor,$sig);
&getThem;

print "rname=$rname logon=$logon hcolor=$hcolor
sig=$sig\n";

sub setThem {
# ----------------------------------
print "Set-Cookie:rname=$_[0]\n";
print "Set-Cookie:logon=$_[1]\n";
print "Set-Cookie:hcolor=$_[2]\n";
print "Set-Cookie:sig=$_[3]\n";
} 

sub getThem { 
# ----------------------------------
@cookies = split (/;/, $ENV{'HTTP_COOKIE'});

foreach $cookie (@cookies) {
($name, $value) = split (/=/, $cookie);
$crumbs{$name} = $value;
}

$rname = $crumbs{'rname'};
$logon = $crumbs{'logon'};
$hcolor = $crumbs{'hcolor'};
$sig = $crumbs{'sig'};
}