#!/usr/bin/perl
# your code goes here
my $adssParams = {};
my $cookies = [
#{'name'->{'test'}, 'value'->{'asdf'}},
{'name'->{'test2'}, 'value'->{'asdf2'}}
];
if ($cookies && (ref $cookies eq 'ARRAY') && scalar $cookies >= 1) { foreach my $cookie (@{$cookies}) {
$adssParams->{'cookies'}->{$cookie->{'name'}} = $cookie->{'value'};
}
}
if ($cookies && (ref $cookies eq 'ARRAY') && $#{$cookies} >= 1) { foreach my $cookie (@{$cookies}) {
# $adssParams->{'cookies'}->{$cookie->{'name'}} = $cookie->{'value'};
}
}
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKbXkgJGFkc3NQYXJhbXMgPSB7fTsKCm15ICRjb29raWVzID0gWwogICAgICAgICN7J25hbWUnLT57J3Rlc3QnfSwgJ3ZhbHVlJy0+eydhc2RmJ319LAogICAgICAgIHsnbmFtZSctPnsndGVzdDInfSwgJ3ZhbHVlJy0+eydhc2RmMid9fQogICAgICBdOwoKcHJpbnQgJCN7JGNvb2tpZXN9OwoKCmlmICgkY29va2llcyAmJiAocmVmICRjb29raWVzIGVxICdBUlJBWScpICYmIHNjYWxhciAkY29va2llcyA+PSAxKSB7CiAgICBmb3JlYWNoIG15ICRjb29raWUgKEB7JGNvb2tpZXN9KSB7CiAgICAJcHJpbnQgImhpXG4iOwogICAgICAkYWRzc1BhcmFtcy0+eydjb29raWVzJ30tPnskY29va2llLT57J25hbWUnfX0gPSAkY29va2llLT57J3ZhbHVlJ307CiAgICB9CiAgfQogIAppZiAoJGNvb2tpZXMgJiYgKHJlZiAkY29va2llcyBlcSAnQVJSQVknKSAmJiAkI3skY29va2llc30gPj0gMSkgewogICAgZm9yZWFjaCBteSAkY29va2llIChAeyRjb29raWVzfSkgewogICAgCXByaW50ICJoaTNcbiIKICAgICAgIyAkYWRzc1BhcmFtcy0+eydjb29raWVzJ30tPnskY29va2llLT57J25hbWUnfX0gPSAkY29va2llLT57J3ZhbHVlJ307CiAgICB9Cn0KICA=