$VAR1 = bless( {
'data_loaded' => 1,
'params' => {},
'cookies' => {
'Community_Sesssion' => [
'68ce4195515b8040f9174503dacfe200'
],
'PHPSESSID' => [
'e09347f6ca73f155b1fd6500e92302b8'
],
'__utmb' => [
'248415237'
],
'__utmc' => [
'248415237'
],
'__qcb' => [
'608960055'
],
'__qca' => [
'1234223794-30138386-61750767'
]
},
'p' => '',
'nph' => 0,
'_debug' => 0
}, 'GT::CGI' );
####
my %cookie_hash = $IN->{cookies};
foreach my $group (keys %cookie_hash) {
print "The members of $group are\n";
foreach (@{$cookie_hash{$group}}) {
print "\t$_\n";
}
}
####
The members of HASH(0x828b958) are