my $name;
foreach $name (keys %cookies){
  my $cookie = $cookies{$name};
  $cookie_jar->set_cookie(1,$cookie->name,$cookie->value,$cookie->path,$cookie->domain,80,'',0,$cookie->expires,0,{});
};