Ooops - that's an error in my script. I didn't read the documentation closely enough. The loop should be:

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,{});
};
[download]

I am still not saying that you should use HTTP::Proxy, but you should still look at how it does its thing and steal the parts that you can use. Even if the whole is not what you need, parts of it may still be of use for you or aid you as a learning tool.

PS: You might want to read Writeup Formatting Tips to see how you can wrap your code in <CODE> tags so it shows up nicely.