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: message=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;