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

##</code><code>##

my $cookie_out = $query->cookie(
       -name=>"MY_NAME",
       -value=>"Barry Griffin",
       -expires=>'+24h',
       -path=>'/cgi-bin/~nirvana7',
       -domain=>'rain.prohosting.com',
       -secure=>0
);