I have a script that needs to send a proper header with two of cookies to a CGI program. I read the HTTP::Cookies documentation, but I don't understand it. My script looks like this:

use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Cookies;
use URI::URL;
$|++;

my $url = url( 'http://www.somedomain.com/cgi-bin/message.cgi' );

my $ua = LWP::UserAgent->new;

my $request = HTTP::Request->new( GET => $url );
$request->referer('http://who.wantsta.no/');

my $jar = HTTP::Cookies->new;
$jar->set_cookie( 1, 'message', 2 ); # I want to have Set-Cookie: mess
+age=2
$jar->set_cookie( 1, 'user', 5 );    # Trying to set a second cookie 
$jar->add_cookie_header( $request );

my $response = $ua->request( $request );

print $response->as_string;
[download]

My debuging shows that the cookies are not being set. What am I doing wrong? Plese help.