my $rcvd_cookies = $ENV{'HTTP_COOKIE'};
my @cookies = split /;/, $rcvd_cookies;
foreach my $cookie (@cookies)
{
  print $cookie,"\n";
}